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PREFACE 



The purpose of this publication is to summarize the internal logic of 
the modules contained in the DOS PL/I Resident Library. It supplemen-cc 
the program listings by providing descriptive text and flowcharts, but 
program structure at the machine instruction level is not discussed. 
The descriptive text is contained in part I of this publication, the 
flowcharts are in part II. 

Information on how to use this publication is contained in chapter 1 of 
part I; although the manual is intended primarily as a source of 
reference, the user should acquaint himself with the contents of chapter 
1 before referring to any other chapter. 



PREREQUISITE PUBLICATIONS 

To make effective use of this publication, the reader must be familia] 
with the contents of: 



DOS 

PL/I Optimizing Compiler; Execution Logic , 

Order No. SC33-0019 



ASSOCIATED PROGRAM PRODUCT PUBLICATIONS 

Details of the DOS PL/I Transient Library are given in the following 
publication: 

DOS 

P L/I Transient Library; Program Logic , 

order No. LY33-6012 



The PL/I Optimizing Compiler, its facilities, and its requirements are 
described briefly in the following publication; 

DOS 

PL/I Optimizing Compiler : 

General Information , Order No. GC33-0004 

Details of the language implemented by the PL/I Optimizing Compiler are 
given in: 

DOS 

PL/I Optimizing Compiler: Language Reference Manual , 

Order No. SC33-0005 
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The relationship between a PL/I program and the Disk Operating System is 
described in: 



DOS 

PL/I Optimizing Compiler: Programmer's Guide , 

Order No. SC33-0008 

Compile- time and execution-time messages for the PL/I Optimizing 
Compiler are documented in the following program product publication; 

DOS 

PL/I Optimizing Compiler: Messages , Order No. SC33-0C21 



RECOMMENDED SYSTEM AND SYSTEM CONTROL PROGRAM PUBLICATIONS 

DOS Concepts and Facilities 
Order No. GC2U-5030 

DOS System Control and System Service Programs 
Order No. GC24-5036 

DOS supervisor and Input/Output Macros 
order No. GC24-5037 

DOS Data Management Concepts 
Order No. GC24-3U27 

DOS System Generation and Maintenance 
Order No. GC24-5033 

Introduction to DOS/VS , Order No. GC33-b370 

DOS/VS System Management Guide , Order No. GC33-5371 

DOS/VS Data Management Guide , Order No. GC33-5372 

DOS/VS System Control statements . Order No. GC33-5376 

DOS/VS System Generation , Order No. GC33-5377 

DOS/VS Messages , Order No. GC33-S379 

DOS/VS Data Management Services Guide , Order No. GC26-3783 

DOS/VS Data Management Macro Instruction , Order No. GC26-3793 

Tape and Disk Sort/Merge Program 
Order No. GC28-6676 



AVAILABILITY OF PUBLICATIONS 

The availability of the publication is indicated by its use key , the 
first letter in the order number. The use keys are: 

G - General: available to users of IBM systems, products, 
and services without charge, in quantities to meet 



Licensed Material - Property of IBM 



Page of LY33-6011-1, Added October 1976 by TNL LN33-6179 



their normal requirements; can also be purchased by- 
anyone through IBW branch offices. 

S - Sell: can be purchased by anyone through IBM branch 
offices. 

L - Licensed materials, property of IBM: available only to 
licensees of the related program products under the 
terms of the license agreement. 
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CHAPTER 1: IttTEODUCTION 



The DOS PL/I optimizing compiler is supported by two library program 
products: the DOS PL/I Resident Library (program number 5736-LMU) and 
the DOS PL/I Transient Library (program number 5736-LM5) The resident 
library consists of modules that are selectively link-edited with the 
relocatable object module and hence become part of the executable 
program phase. The transient library consists of modules that are 
loaded dynamically at execution time. 

This publication describes the DOS PL/I Resident Library. The transient 
library is described in DOS PL/I Trans ient Library: P rogracn Lo gic. 

THE RESIDENT LIBRARY 

The DOS PL/I Resident Library consists of about one hundred and eighty 
prograir modules which reside on the relocatable library. Each module 
performs a single function or a number of closely-related functions and 
is designed as a single control section. 

The modules of the resident library form a set of standard subroutines 
that are used for the majority of interfaces with the system and for 
handling those tasks that can be most efficiently executed by means of 
interpretive subroutines. 

The main areas where the library is used are: input/output, error 
handling, storage management, conversions, mathematical functions, and 
various string and aggregate handling operations. 



MODULE NAMING CONVENTIONS 

Control Names 

Each module in the resident library is identified for documentation 
purposes by a unique 6- or 7-letter control name of the following form: 

IBMabc(d) 

The Uth letter of the control name (a) is one of the following 
characters: 

B - The module is independent of the operating system and may 
be included in more than one program product. 

D - The module is written specially for and is dependent upon 
the Disk Operating System. 

G - The module is a replacement module for a "D" module. For 
example, the single WAIT module IBMGJWT is a replacement 
module for the multiple WAIT module IBMDJWT in systems that 
do not support the WAITM macro. 

E - The module is a replacement module for a "B" module. 
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The 5th letter (b) of the control name specifies the functional area of 
the library to which the module belongs. The meanings of the letters 
that may appear in this position are listed in figure 1.1. 



5th Letter 


of 


Functional Area Identified 


Control 


Name 




A 






Computational routines (aggregates) 


B 






Computational routines (strings) 


C 






Conversion routines 


E 






Error handling routines 


I 






Interlanguage communication routines 


J 






Miscellaneous supporting functions 


K 






Dump routines and miscellaneous 
supporting functions 


M 






Mathematical routines 


C 






Open/close routines 


P 






Program management routines 


F 






Record I/O transmission 


S 






Stream I/O transmission 



Figure 1.1. Identification of Functional Areas 



The remaining letters of the control name identify the module within its 
particular functional area. These letters are not necessarily mnemonic, 
but they have been chosen to give an indication of the module function 
wherever possible. 



Entry point names identify points within a module to which control is 
passed when the module is called by another library module or by 
compiled code. 

With the exception of the stream I/O transmitters IBMDSTF and IBMDSTI, 
entry point names are derived from the module's control name by changing 
the fourth letter to B and adding an eighth letter to identify the 
particular entry point within the module. Entry point letters are 
usually allocated consecutively from the beginning of the alphabet « In 
the case of the above two exceptions, the fourth letter is not changed 
to B. 

Modules that have 6-letter control names are given two entry point 
letters to make their entry point names eight characters long. 



Control Section Names 

The CSECT name of a library module is formed by adding 'l* to its 
control name if it has seven letters, or '01* if it has six. For 
example, the CSECT names of IBMBEOC and IBMECO are IBMBEOCl and 
IBMBCOOl , respect ively . 
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ARRANGEMENT OF MANUAL 

Each of the remaining chapters in this iranual deals with the modules in 
a particular functional area of the library. The chapters are: 



Chapter 2 
Chapter 3 
Chapter t 
Chapter 5 
Chapter 6 
Chapter 7 
Chapter 8 
Chapter 9 



Program Management Routines 
Open and Close Routines 
Record I/O Routines 
Stream I/O Routines 
Conversion Routines 
Computational Routines 
Interlanguage Routines 
Miscellaneous Routines 



Appendixes giving lists of resident library modules and library macro 
instructions are included at the end of part I of this manual. 

Part II contains flowcharts of all the resident library modules that 
contain a significant amount of executable code. The flowcharts are 
identified by the 4th, 5th, 6th, and 7th letters of the module name; for 
example, the flowchart for module IBMDERR appears on chart DERR. The 
charts are arranged in alphabetic order; part II may thus be used 
directly for reference. 

Each chapter in part I begins with a brief overview of the modules 
described in the chapter. The overview gives details of the common 
features of the modules and an outline of their relationship with other 
modules. A full discussion of the part played by the resident library 
in the execution of a PL/I program is given in DOS P L/I Optimizing 
Compile r; Execution Logic . 

Following the overview or introduction, the modules are described in 
alphabetic order by control names. Where modules have been further 
divided into functional subgroups, the alphabetic order of presentation 
is maintained only within the subgroups. 

INFORMATION PROVIDED BY MODULE DESCRIPTIONS 

The module control names, followed by a short title, are used as the 
headings for the module descriptions. For each module, information is 
provided under standard subheadings. The subheadings used and the type 
of information to be found thereunder are given in the following 
paragraphs. 

Modules: If more than one module is described, the title of each module 
is given under this heading. 

Function ; Where this is not obvious from the title of the module, the 
information provided under this subheading consists of a brief statement 
of the main function of the module and, where appropriate, of each of 
the module entry points. 

Method; Under this subheading the method used in implementing the 
function or functions of the module is described. In general, the 
program logic and flow information presented in the module flowcharts is 
summarized and, in some cases, elaborated. Program structure at machine 
instruction level is not discussed, although reference to the symbolic 
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naires of control block fields is made wherever this is considered 
helpful. 

Linkage : The information provided under this subheading is confined to 
a list of those registers containing parameters, and details of the 
parameters passed. 

Error and Exceptional Conditions; A brief summary of all the error and 
exceptional conditions that the module is capable of detecting is given 
under this heading. 

Calls : A list of modules that may be invoked by the module described is 
given under this heading. 

Called By : A list of modules capable of invoking the module described 
is given under this heading. If the module can be called directly from 
compiled code, this is also indicated. 



PROGRAJ< II STINGS 

The information contained in the following paragraphs may prove helpful 
to the user of a program listing. 



REGISTER NAMING CONVENTIONS 

In the program listings,, registers are referred to symbolically by 
prefixing the register number by "R" for general registers, and by "F* 
for floating-point registers: for example, RO; R5; FU. Exceptions to 
this general rule are shown in figure 1.2. 



General 


Symbolic 


Remarks 


Register 


Name 




3 


AR 


Normally used as addressing (base) 
register 


10 


RX 




11 


RY 




12 


CR 


Points to task communications area (TCA) 


13 


DR 


Points to dynamic storage area (DSA) 


la 


LR 


Link register 


15 


BR 


Branch register 



Figure 1.2. Symbolic register names 



FLOWCHARTING STATEMENTS 



Certain statements in the program listings are preceded by */* and 
terminated by */. These statements are used in the production of the 
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module flowcharts given in part II of this publication. A typical 
flowcharting statement might appear in the listing as: 

*/* B4 P SAVE REGISTERS ♦/ 

The flowcharting statements serve as general comments on the sections of 
executable code that follow them in the listings; they are also useful 
in locating the section of code that corresponds to a particular box on 
the module flowchart. 



PROGRAM FLAGS 

In some program, listings, the following symbols are used in column 38 to 
highlight the breaks in sequential flow through the module and to 
augment the comments: 

E Branch to another m.odule. 

I Branch to internal closed subroutine. 

R Return to caller. 

/ Return to internal error routine. 

= Switch set. 

? Switch test or other decision. 



LIBRARY MACRO INSTRUCTIONS 

A list of library macro instructions, together with brief descriptions 
of their functions, is given in appendix B. Each macro instruction is 
identified by a 7-letter or 8-letter name of the following form: 

IBMaXbc(d) 

The 4th letter (a) of the name is "B", except for those macro 
instructions that are designed for use only under the Disk Operating 
System, when the letter "D" is used. The 5th letter of the name is 
always "X" and identifies the name as that of a library macro 
instruction. The final two or three letters are mnemonic of the 
function. 



Debugging Macro Instructions 



The program listings of many library modules contain debugging macro 
instructions which were used during the development of the modules. 
These macro instructions are not expanded in the listings, nor do they 
have any corresponding instructions in the actual library modules. They 
can, however, be reactivated to provide debugging facilities. 
Information on how to do this is given in appendix C. 



lU Licensed Material - Property of IBM 



Page of LY33-6011-1, Revised October 1976 by TNL LN33-6179 

CHAPTER 2: PROGRAM MANAGEMENT ROUTINES 



The program management section of the library is concerned with two main 
subjects: housekeeping and error handling. 

The housekeeping section of the resident library contains routines 
concerned with program initialization and termination, storage 
management, and various other housekeeping operations. These modules 
are descritaed below under the heading "Housekeeping Routines." A full 
description of the storage situation at execution time is contained in 
DOS PL/ I Optimizing Compiler ; Execution Logic . 

The error-handling modules of the resident library all have "E" as the 
fifth letter of their control names. They are described below under the 
heading "Error Handling Routines." 



HOUSEKEEPING ROUTINES 



MODULE DESCRIPTIONS 



DFHPLII - CICS Initialization Bootstrap 



Function 

Acts as the entry point for PL/I programs under CICS, and replaces the 
compiler generated PLISTART. DFHPLII also supplies bootstraps for the 
PL/I program to the transient library routines in the CICS nucleus and 
to CICS services. 

Method (chart DFHPLII) 

When called from CICS for initialization, or by the program for library 
function, DFHPLII sets up the parameter registers and hands control to 
the transient library module IBMFPCCA in DFHSAP (found via the CSA) . If 
called for a CICS service, control is transferred to the interface in 
DFHPCP, which is found via an address stored in this module by the CICS 
loader. 

Linkage 

For a call to IBMHPIR 

RO = input value of R13 (DSA into which callers registers are 

saved) . 
Rl = input value 

RIO = initialization parameter list address 
R12 = A (CICS TCA) 
R13 = A(CICS CSA) 

Calls 
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IIBMFPCCA - for various PL/I functions in DFHSAP 
JdFHPCP - for CICS service requests 

I 
I 
I Called By 

I 

I CICS 

I Compiled code for services. 
IBMBPAF - Controlled Variable Management 

Function 

To allocate and free controlled variables. The module has two entry 
points : 

IBMBPAFA: Allocate controlled variable. 

IBMBPAFB ; Free controlled variable. 

Method (chart BPAF) 

Entry Point IBMBPAFA ; 

The length of the storage required and the address of the control 
section containing the address of the most recent allocation of the 
controlled variable are passed from compiled code. The length is 
increased by 16 bytes to hold control information, and rounded up to a 
multiple of eight bytes. Module IBMDPGR is then called to allocate the 
storage. 

On return from IBMDPGR, the control information is initialized in the 
extra 16 bytes. The allocated storage is then added to the chain of 
allocations for the variable concerned, and control is returned to 
compiled code. 

Note: Initially, the address in the CSECT is set to zero. The chain 
back field in the first allocation of a controlled variable thus 
contains zero. 

Entry Point IBMBPAFB : 

The most recent allocation of the variable is dechained and module 
IBMDPGR is called to free the storage. The length of the storage to be 
freed is obtained from the length field in the control information for 
that allocation. 

Linkage 

Rl = A(PLIST) 
PLIST = A (CSECT) 

A (length of data section) (entry point IBMBPAFA only) 

Calls 

IBMDPGR - Storage management. 

Called By 
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Compiled code. 

IBMBPAM - Area Management 

Function 

To allocate and free storage within an area variable and to support 
assignment of areas. The module has three entry points: 

IBMBPAMA ; Allocate a based variable in a specified area variable. 

IBMBPAMB ; Free a specified based variable in a specified area variable. 

IBMBPAMC : Assign the contents of a source area variable to a target area 
variable. 

Method (chart BPAM) 

Entry Point IBMBPAMA : 

Whenever possible, allocations are made in elements on the free element 
chain. Each allocation is made in the smallest free element that is 
large enough, and the free element chain is then rearranged so that the 
free elements are once more chained in descending order of size. 

If there is no free element chain (free-element-chain flag off), or if 
the largest element in the chain is too small for the allocation, an 
attempt is made to allocate the storage in the space between the end of 
extent (EE) pointer and the end of the area. If this space is too small 
the AREA condition is raised, and the error-handling routine is called 
at entry point IBMBERRB. 

On return from the error handler, control is returned to compiled code 
at the address given in the parameter list for abnormal return. 
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Entry Point IBMBPAMB : 

Pointers are set to the low-address and high-address ends of the 
allocation that is to be freed. If there is a free element chain (free- 
eleir.ent-chain flag on) , it is scanned to see whether the section to be 
freed is contiguous, at either end, with any of the free elements. Any 
such free elements are dechained and added to the section to be freed. 

When the scan is complete, a test is made to see whether the section to 
be freed is contiguous with the end of the extent. If it is, EE is 
updated, and a test is made to see whether there are any elements 
remaining en the free element chain: if there are not, the free-element- 
chain flag is turned off. If the section tc be freed is not contiguous 
with the end of the extent, it is placed in the correct position in the 
free element chain. If this is the last element in the free element 
chain, the free chain flag in the area variable is turned off. 

If there is no free element chain and the section is not contiguous with 
the end of the extent, the section is made the first element on a free 
element chain. 



Point IBMBPAMC : 

The length of the target area is compared with the length of the 
allocated storage in the source area. If there is sufficient room in 
the target area for the assignment, all the allocated storage in the 
source area, including the heading at the top, is moved onto the target 
area. 

If there is insufficient room in the target area, the AREA condition is 
raised and a call is made to entry point IBMBERRB of the error handler. 
On return from the error handler, control is returned to compiled code. 

Error and Exceptional Conditions 

The AREA condition is raised if the storage allocation or the assignment 
cannot be made. 

Linkage 

Entry Po int IBMBPAMA; 

Rl = A(PLIST) 

PLIST = A (AREA locator) 

A (word to hold address of storage allocated) 

Adength to be allocated) 

A (label constant for abnormal return) 

Point IBMBPAMB : 

Rl = A (PLIST) 

PLIST = A (AREA locator) 

A (pointer to allocation to be freed) 

Adength to be freed) 

Entry Point IBMBPAMC; 

Rl = A (PLIST) 
PLIST = A (source area locator) 
A (target area locator) 
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Calls 

IBMDERR - Error handler. 

Called by 
Ccmpiled code. 

IBMBPGO - Reset CHECK Enablement 

Function 

To set current CHECK enablement to that at block entry, during abnormal 
GOTO out of a block. 



Method 

The module first tests for any dynamic ONCBs, and if there are none, 
branches immediately to the target code addressed by the link register. 

If there are dynamic ONCBs present, the module places the address of the 
latest ONCB, contained in the BSA, into register Rl, inspects the ONCB, 
and if necessary, sets the value for CHECK enablement to as it was at 
block entry. 

The process described above is repeated in turn for every other ONCB 
there may be and when every ONCB concerned has been dealt with, the 
mcdule branches to the target code addressed by the link register. 

Linkage 

R2 = A (target base) 

LR - A (target compiled code for return) 

RU = (target value) 

AR = (target value) 

Called By 
Compiled code 



IBMDPGR - Storage Management 

Function 

To allocate and free non-LIFO storage and to obtain and free segments of 
the LIFO stack when insufficient space is available in the current 
segment. The module has four entry points: 

IBMBPGRAs Get non-LIFO storage. 



18 Licensed Material - Property of JEM 



IBMBPGRB t Free non-LIFO Storage 

IBMBPGRC; LIFO-stack overflow recovery for "get DSA." 

IBMBPGRD: LIFO-stack overflow recovery for "get VDA." 

Method (chart DPGE) 

Entry Point IBMBPGRA : 

Before allocating storage, the module calls its own entry point IBMBPGRC 
(see below) to free any empty segments. 

Whenever pcssitle, allocations of non-LIFO storage are made from areas 
on the free area chain. lEMEPGR rounds up the amount of storage 
requested ty the caller to a multiple of 8 bytes,, and then searches the 
free area chain for the smallest area that is large enough to meet the 
storage requirements. If an area of exactly the required size is found,, 
it is dechained and its address is returned to the caller. If an area is 
found that meets the above conditions, but which is larger the the area 
required, the allocation is made from the high address end of the area. 
In this case the address returned to the caller is the address of the 
end of the area minus the number of bytes allocated. The length of the 
remaining free area, which is stored in its first word, is then reduced 
by the number of bytes allocated. 

If no free area chain exists, or if all the areas on the chain are too 
small, an attempt is made to allocate the storage in the area delimited 
by the next available byte (NAB) pointer and the end of segment (EOS) 
pointer. If this area is large enough, EOS is reduced by the number of 
bytes required and the address of the area is returned to the caller. 

If the area between the NAB and EOS pointers is too small the allocation 
cannot be made. Under these circumstances IBMBPGRA sets the appropriate 
return code in the TCA and returns to the program initialization routine 
IBMDPIR, which terminates the program. 

Entry Po int IBMBPGRB; 

The length of storage that is to be freed is first rounded up to a 
multiple of 8 bytes. 

IBMBPGRB then scans the free area chain to determine whether or not 
there is a free area contiguous with the high order boundary of the 
storage that is to be freed. If such an area is found, it is dechained 
and its length is added to the length that is to be freed. 

The free area chain is then scanned again to determine whether or not 
there is a free area contiguous with the low order boundary of the 
storage that is to be freed. If there is, its length is increased by 
the length of the storage that is to be freed, and control is returned 
to the caller. 

If there is no free area contiguous with the low order boundary, a test 
is made to see whether or not the storage to be freed is at the address 
pointed to by EOS, If it is, EOS is moved; otherwise the storage to be 
freed is added to the free area chain. Control is then returned to the 
caller. 
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Entry Point IBMBPGRC : 

This entry point is called when there is no space in the current segment 
of the LIFO stack in which to allocate a DSA. Since the caller is in 
the process of allocating a DSA, IBMBRGFC saves its registers in the 
special program management save area in the TCA. 

When a request is made to IBMEPGRC to get a new LIFO stack segment, 
empty segments may already exist. If more than one empty segment exists, 
the current segment is freed and the previous segment is made current. 
This is done by setting BOS and EOS to the values stored in the two 
control words at the head of the current segment and then freeing the 
segment by the method described above for non-LIPO storage. Successive 
segments are freed in this way until only one empty segment exists. 

The allocation of storage can now be made. If there is enough space in 
the previous non-empty segment for the allocation, the allocation is 
made in this segment and the current empty segment is freed. Otherwise, 
the allocation is made in the current empty segment provided that it is 
large enough. If the current empty segment is too small, it is freed; 
the action then taken is the same as that for the case when no empty 
segment exists. 

If no empty segment exists an area of ncn-LIFO storage is obtained by 
the same method as IBMBPGRA, except that the largest possible area is 
obtained. BOS and EOS are stored in the area obtained and then updated 
tc address the new segment. 

Note that IBMBPGRC is not called if there is space for the allocation in 
the latest non-empty segment and no empty segments exist. 

Point IBMBPGRD; 

This entry point is called when there is no space in the current segment 
of the LIFO stack in which to allocate a VDA. The action taken is the 
same as that described for entry point IBMBPGRC (above), except that the 
caller's register RIU is saved in the caller's save area as well as in 
the program save area. This is done to enable the point of invocation 
Of IBMDPGR to be found if an "insufficient storage available* message 
has to be printed. 

Error and Exceptional Conditions 

Control is returned to IBMDPIR if there is no storage available. 

Linkage 

Entry Po int IBMBPGRA; 
On entry: 

RO - length of storage required 
On return: 

Rl = address of storage obtained 

Entry Point IBMBPGRB: 

RO = length of storage to be freed 
Rl = address of storage to be freed 
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Entry Points lEMB PGRC and D : 

On entry: 

RO = length of LIFO storage to be allocated + latest NAB 
Rl = latest NAB 

On return: 

RO = new NAB 

Rl = address of storage for element 

Calls 

IBMDPIR - Program initialization. 

Called By 

Compiled code and any resident or transient library module that requires 
storage. 



IBMDPIR - Program Initialization from 



Function 

To load IBMDPII at the end of the partition, for that module to 
establish an initial storage area (ISA) , and to pass to IBMDPII a 
parameter list of address constants. IBMDPIR also contains a subroutine 
which is called from the goto code in the TCA whenever abnormal GOTO out 
of block processing is required. Furthermore, the module contains a 
default PLIMAIN in the form of a separate CSECT. This CSECT contains 
its own entry point address in its first four bytes. 

Method (chart DPIR) 

The module first addresses the communications region and then loads 
IBMDPII at the end of the partition. Control is then passed to IBMDPII. 

The subroutine which is called from the TCA goto code to perform 
abnormal GOTO out of block functions, may be used during execution of 
the PL/I program to call exit DSA processing (e.g. sort exits), return 
being made to the TCA goto code. lEMDPGR may enter the subroutine to 
cause termination of the program when there is insufficient storage to 
continue execution. In such a case, a branch is made to the start of 
IBMDPIR* s CSECT where IBMDPIR overlays itself by loading IBMDPES to 
produce an "INSUFFICIENT STORAGE" message. 

The subroutine is also entered by IBMDERR, via the TCA goto code, to 
terminate the program after normal return from, or standard system 
action for the FINISH condition. When so entered, it calls IBMDOCLD to 
close any open PL/I files, and performs any exit DSA processing required 
in the following manner. The routine continues processing down the DSA 
chain until the target DSA for the goto (i.e., the dummy DSA) is 
reached. 
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When the duitiiry DSA is reached during termination, a test is aade to 
determine whether the FL/I program was invoked from another language. 
If so IBMDPJR is called at entry point IBMDPJRC. Otherwise if the 
program is terminating due to ERROR being raised, a CANCEL macro is 
issued to flush any data in the SYSIPT stream. For normal finish, STOP 
or EXIT, an EOJ macro is issued. 



•No Main Procedure' CSECT: 



Note: PLIMAIN is generated by the compiler as a result of processing the 
option MAIN in the OPTIONS option. It contains the address of the PL/I 
main procedure. If the PL/I program has no main procedure, a dummy 
PLIMAIN is picked up at link- edit time. 

The CSECT when entered, gets library workspace as a save area, and then 
loads and branches to the transient module IBMEPEP, which issues a "NO 
MAIN PROCEDURE* message. Control is then returned to the caller. 

Error and Exceptional Conditions 

If there is insufficient room in the ISA for the setting-up of the 
various control blocks, transient module lEMDPES is loaded and invoked 
tc issue a 'NO STORAGE AVAILABLE* message. Control is then returned to 
the caller. 



Linkage 

RO = A (PLIMAIN) 

Calls 

IBMDOCL - Open/ close bootstrap. 

IBMBPGO - Reset CHECK enablement. 

lEMDPEP - Housekeeping diagnostic message module. 

IBMDPES - Storage management diagnostic message module. 
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IBMDPJR - Program Initialization from Caller 

Function: 

To establish an initial storage area, (ISA) allowing for an 
interlanguage communication Fortran buffer and DTF if necessary, and 
then load IBMDPJI to initialize the ISA. The module has five entry 
points, two of which are for a PL/I caller who wishes to invoke the same 
PL/I procedure each time. 

PLICALLA ; Entry from PL/I caller with the ISA not specified. 

PLICALLB : Entry from PL/I caller with the length and address 
of the ISA specified. 

IBMBPJRA; Entry from PL/ I caller with a pointer to address 
of compiled code, but ISA not specified. 

IBMBP JRB ; Entry from PL/I caller with a pointer to address 
of compiled code,, and ISA specified. 

IBMBPJRC ; Entry from IBMDPIR for return to caller. 

Method (chart DPJR) 

The module first determines the length of the ISA and the address of 
compiled code. If the length is sufficient for the program management 
area (PMA), flow table and (if required) Fortran buffer and Fortran DTP, 
the module loads and invokes IBMDPJI to initialize the ISA. If however, 
the length is insufficient, then IBMDPEP is loaded for that module to 
produce a "no storage available" message. 

To terminate the program, entry point IBMBPJRC is entered from IBMDPIR. 
IBMDPJRC calculates the return code and resets the caller's program 
check options and program mask by issuing a STXIT macro. Return is then 
made to the caller. 

Error and Exceptional Conditions 

If there is insufficient room in the ISA for the setting-up of the 
various control blocks, transient module IBMDPES is loaded and invoked 
to issue a "no storage available" message. Control is then returned to 
the caller. 

Linkage 

En try Poin t PLICALLA : 

Rl = A (compiled code plist) 

Entry Point PLICALLB ; 

Rl = A (PLIST) 

PLIST= A(compliled code plist) 

A (length of ISA) 

A(pa3sed ISA) 

Ent ry Point IB M BPJRA : 

Rl = A (compiled code plist) 
RO = A(PLIMAIN) 
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Eatrv Point IBMBPJRB ; 

Rl = A(PLIST) 

PLIST= A (compiled code plist) 

Adength of ISA) 

A (passed ISA) 

RO = A(PLIMAIN) 

Calls 

IBMDPJI - Program ISA initialization from caller. 

Called By 

Non-PL/I Language caller. 

I BMP POL - Overlay Space Saving Module 



Function 

To provide dummy entry points in overlay phases so that certain modules 
are not included in DOS overlay phases in which they would never be 
executed. Thus the space such modules would otherwise occupy is saved. 
Ttie module has thirteen entry points, which are in fact dummy entry 
points but which suffice to resolve references to the modules to be 
excluded. The entry points are as follows: 

IBMBPGRA, IBMBPGRB, IBMBPGRC, IBMBPGRA 

IBMBEFLA, IBMBEFLB, IBMBEFLC 

IBMBTOCA, IBMBTOCB 

IBMBJWTA 

IBMBERCA 

IBMBPIRA 

IBMBPLRA 

Note ; If such modules are to be used at all they should be in the root 



phase of the overlay program. 
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lEMDPOV - Overlay 

Function 

To iinpleroent the PLICVLY built-in subroutine. 

Method (chart DPOV) 

A LOAD macro is used to load the specified phase into store. 

Linkage 

Rl = A(PLIST) 

PLIST = A (string locator for naroe of irodule) 

Called By 
Ccirpiled code. 

IBMBPR C - Return Code Module 

Function 

To set up the return code specified by the user. 

Method 

The module moves the specified return code into a halfword field in the 
TCA. 

Linkage 

Rl = A (PLIST) 

PLIST = A (halfword containing the required return code value) 

Called By 
Compiled code. 
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IBMBTOC - COMPLETION Pseudovariable and Event 
Variable Assiqnment 



Function 

Tc impleirent the COMPLETION pseudo-variable and to assign event 
variables. The module has two entry points: 

IBMBTOCA ; COMPLETION pseudo-variable. 

IBMBTOCB ; Event variable assignment. 

Method (chart ETOC) 

Entry Point IBMBTOCA : 

The value of the completion bit specified in the parameter list is moved 
tc the target EV. If the EV is being set complete (completion bit = 
•1*B) and an EVTAE chain exists, a bit is set in each EVTAB on the chain 
to indicate completion for the associated WAIT. 

Entry Point IBMBTOCB : 

The completion and status values of the source EV are moved to the 
target EV. If the completion bit value is 'I'B and an EVTAB chain 
exists, a bit is set in each EVTAB on the chain to indicate completion 
for the associated WAIT. 

Error and Exceptional Conditions 

The ERROR condition is raised if the target EV is active. 

Linkage 

Entry point IBMBTOCA; 

Rl = A(PIIST) 
PLIST = A (target EV) 

A(fullword containing the value to be assigned to the 
completion bit) 

Entry Point IBMBTOCB : 

Rl = A (PLIST) 
PLIST = A (target EV) 
A (source EV) 

Calls 

IBMDERR - Error handler. 

Called By 
Compiled code. 
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ERROR HANDLING ROUTINES 

The principal module described in this section is the main execution- 
time-error handling (DOdule IBMDERR. This module handles two types of 
conditions that cause interruption to the main flow of a PL/I program. 
These are: 

1. Program check interrupts, 

2. Conditions that are detected by code. 

The functions of the error handler are to determine the nature of the 
error or condition and to take the appropriate action. Several courses 
of action are possible, including: 

1. Enter an on-unit. 

2. Print SNAP messages. 

3. Print an error message, raise the ERROR condition, and then, raise 
the FINISH condition. 

U. Print an error message and return to the caller. 

5. No action; return to the caller. 

The other modules described in this section include the FLOW option 
module IBMBEFL, which creates a flow statement table, the CHECK module 
IBMBERC, which is used as a subroutine by lEMDERR to handle the CHECK 
condition, and various modules that evaluate condition-handling built-in 
functions. 

The message-generating modules that support IBMDERR are in the DOS PL/I 
Transient Library and are described in DOS PL/I Transient Library : 
Prog ram Logic . 



MODULE DESCRIPTIONS 



Function 

To create the flow statement table and to fill in the values of the 
statement numbers and the names of the procedures in which they occur. 
The module has three entry points: 

lEMBEFLA: Create and initialize the table. 

IBMBEFLB : Place normal entries in the table. 

IBMBEFLC: Place entries in the table in the middle of GOTO code. 
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Method (chart DEFL) 



On entry, register Rl addresses two half words. The first half word 
contains the number (N) of fcranch-in/branch-out points that are required 
in the table. The second contains the number (M) of procedure names or 
on-unit entries that are required in the table. 

If M=0 and N=0, no flow table is created, and control is returned to the 
caller. 

If M=0 and N=l, N is set equal to 2. 

If M^O and N=0, N is set equal to 2, and a flag is set on in the flow 
table to indicate to the transient modules IBMDESN and IBMDKTB that 
statement numbers are not to be printed in trace messages. 

If M^O and N=l, N is set equal to 2. 

N is set equal to 2 in the above cases because at least 2 pairs of 
statement numbers are needed in the flow table if procedure name or on- 
\3nit type entries are to be made. However, if the caller has specified 
N=0, no statement numbers are required in trace messages. 

The module then creates the flow table as follows: 

The amount of storage required for the table is calculated as 
41+12*N*8*M (rounded up to a multiple of 8 bytes), and this amount of 
storage is then obtained. The first 41 bytes are for the table header. 

The header is initialized for the entries to be made. Different GOTO 
code,, depending on whether FLOW has been specified, is moved into the 
TCA by the transient modules IBMDPII or IBMDPJI. If there is FLOW then 
this code picks the address of lEMBEFLC from a position in the space 
allowed for GOTO code in the TCA and branches to it. This address will 
have been placed there, during initialization of the table, by IBMOEFL. 

The addresses of the flow table and of entry point IBMBEFLB are then 
stored in the TCA and control is returned to the caller. 

Entry Poin t IBMBEFLB ; 

The action taken by the module depends upon the values of the flag bits 
passed to it. The flag bits are used directly to effect a branch to the 
relevant section of the module. 

Flag Bits = 'OCB: 

This flag bit setting indicates that a normal branch-out entry is to be 
made in the table. If the previous entry in the table was also a 
branch-out, the current branch-out is ignored. 
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If the previous entry was a branch- in, a test is made to determine 
whether or not it is flagged as an entry from a GOTO. (This flag will 
have been set by entry point IBMBEFK: if a GOTO out of block has 
occurred, see below). If it is, the name of the block that was entered 
by the GOTO must be placed in the name table. This is done by means of 
an internal subroutine. 

The module then moves the statement number of the branch-out point to 
the number table and returns to the caller. 

Flag Bits = •Ol'B: 

This flag bit setting indicates that the entry required in the table is 
a branch-out entry relating to the end of an on-unit. The module moves 
the statement number to the table, and follows 'it by a dummy branch- in 
entry. The dummy maintains the branch-out/branch-in pairing of the 
table entries and relates to the statement that caused entry to the on- 
unit. The name of the block to which return is to be made is placed in 
the name table. 

Flag Bits = •lO'B: 

This flag bit setting indicates that a normal branch- in entry is to be 
made in the table. 

If the previous entry in the table was also a branch- in, the current 
branch-in is ignored. 

If the previous entry was a branch-out, a test is made to determine 
whether or not it is flagged as an entry before a GOTO. (This flag will 
have been set by entry point lEMBEFLC if a GOTO out of block has 
occurred, see below.) If it is, the name of the block that was entered 
by the GOTO must be placed in the name table. This is done by means of 
an internal subroutine. 

The module then moves the statement number of the branch- in point to the 
number table and returns to the caller. 

Flag Bits = 'H'E: 

This flag bit setting indicates that a branch-in entry is required in 
the table and that the branch -in has an associated block name. 

If the previous entry in the table was a branch-out,, the module moves 
the current branch-in point to the number table and then uses the 
internal subroutine to find the block name and place that in the name 
table. 

If the previous entry was a branch- in, a test is made to determine 
whether the current branch-in is to a procedure or to an on-unit. 

For procedures, the current branch- in is ignored. 

For on-units, a branch-out entry corresponding to the point of interrupt 
is entered in the table. The previous entry to this is then tested to 
determine whether or not it is flagged as an entry before a GOTO. If it 
is, the internal subroutine is used to find the name of the block in 
which the interrupt occurred and place it in the name table. 

The current branch-in is then handled exactly as though the previous 
entry were a branch-out. 
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Entr y Poi nt IBMBEFLC; 

On entry, a test is made to see whether or not the branch is to a block 
other than the originator of the branch. This may only be out of a 
begin block into its containing procedure or may be from procedure to 
procedure etc. In all cases, if the target DSA is not the source DSA 
then a new procedure name is assumed to be needed in the table. If so, 
a flag is set in the last entry (the branch-out value) to indicate that 
for the next branch- in entry, a new procedure name or on-unit type roust 
be given. 

The test is made by comparing the current DSA with the target DSA. 

Linkage 

Entry Point IByiBEFLA: 

Rl = A (FLOW option numbers) (two half words) 

Entry Point IBMBEFLB t 

LR = A (ha If word) 

Half word = flag bits (2 bits) 

number value (14 bits) 

Entry Po int IBMBEFLC: 
BR = A (target DSA) 

Called Ey 
Compiled code. 

lEMBEOC - On-Code Module 

Function 

To translate two bytes of error code into the PL/I ON-code. 

Method (chart BEOC) 

PL/I CN-codes vary from to 10,000, this range being split up into a 
number of smaller scopes. Each type of error has an ON-code in a set 
scope and also a unique value in the first byte of the error code. 

The errors can also be classified into ON and non-ON types. ON types 
have error codes less than 48 and ON-ccdes less than 1000. Non-ON types 
have error codes descending by twos from 255 and ON-codes ranging from 
1000 to 10,000. 

The lowest number in each ON-code scope is tabulated in IBMBEOCA in two 
tables of half words, the order of tabulation being such that the basic 
ON-code value ccui be accessed by means of a simple arithmetic operation 
on the first byte of the error code. 
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lEMBEOCA finds the error code by picking up the chain back field in the 
current ONCA and obtaining the error code from the ONCA thus addressed. 
If the error is an ON type, the basic ON-code value is located in the 
table by doubling the the value in the first byte of the error code; if 
it is a non-ON type, the basic ON-code value is located by subtracting 
the value of the first byte of the error code from 255. 

The final value of the ON-code is obtained by zeroing bits 0, 1, and 2 
of the second byte (or bits and 1 only for CONVERSION) of the error 
code and adding the result to the basic ON-code value just obtained. 

Linkage 

Rl = A(halfword target for on-code value) 

Called By 

Compiled code 

IBMDESM - Error message module. 

IBMDKTR - Dump trace routine. 



lEMBEOL - ONLOC Built-in Function 



Function 

To find the value of the ONLOC built-in function. The module has a 
single entry point: IBMBEOLA. 

Method (chart BEOL) 

Starting at the current DSA, the module searches back through the DSA 
chain until an on-unit DSA is found. If the dummy DSA is reached before 
an on-unit DSA is found, i.e., if the ONLOC statement is out of context, 
a null string is returned to the caller. 

If an on-unit DSA is found, the search is continued back along the DSA 
chain until a procedure DSA is found. This DSA belongs to the procedure 
in which the condition that caused entry to the on-unit was raised. 

The length of the procedure name (in bytes) immediately precedes the 
procedure's entry point, which is always aligned on a fullword boundary. 
The name is located immediately before the length field. The entry 
point is located by picking up the contents of register 15 from the 
previous DSA's save area. 

Linkage 

Rl = A (string locator for the returned name) 

Called By 
Compiled code. 
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IBMBERC ~ CHECK (System Action) 

Function 

To perform standard system action for the CHECK condition. 

Method (chart BERC) 

The CHECK module is entered from the error handler, IBMDERR, whenever 
the CHECK condition has been raised and standard system action is to be 
taken. 

The module first acquires a new copy of library workspace (LWS) for use 
by the stream I/O modules that will be called. It then accesses the 
parameter list that was passed to IBMDERR (by extracting the contents of 
the register Rl save slot in the DS;^. prior to that of IBMDERR) , and 
obtains from this parameter list the address of the symbol table (or 
list of symbol tables) for the CHECK. 

The module now builds a parameter list to pass to the data-directed 
output module IBMDSDCA. If the variable for which CHECK has been raised 
is an array and only a single element is to be printed, the parameter 
list for IBMDSDOA is set up in the current DSA; otherwise, a VDA is 
obtained for the parameter list. 

The address of an area for a stream I/O Control Block (SIOCB) is placed 
in the first word of the parameter list. 

If the CHECK module has been entered as a result of a SIGNAL CHECK 
statement with no identifier, the enablement of the CHECK for each PL/I 
variable is determined and the SYMTAB addresses of the enabled variables 
are placed in the parameter list. 

If the module has been entered as a result of an ordinary CHECK, the 
single SYMTAB address is placed in the parameter list. 

The SIOCB is then set up in the current DSA and the stream I/O 
initialization module IBMDSIO is called. On return from IBMDSIO, the 
data-directed output module IBMDSDO is called. If there is an array 
address in the parameter list, entry point IBMESDOB is called, otherwise 
entry point IBMBSDOA is called. 



Linkage 

DR = AdBMDERRS library DSA) 

Calls 

IBMDSIO - Initialize stream I/O, 
IBMDSDO - Data-directed output. 

Called By 

IBMDERR - Error handler. 
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IBMDERR - Error Handler 



Function 



To identify execution-time errors or conditions and to take the 
appropriate action. The module has three entry points: 

IBMBERJRA t Program check interrupts. 

IBMBERRB : Conditions and errors detected by code. 

IBMBERRC: Program check interrupts while control is in IBMDERR. 

Method (chart DERR) 

Program Check Interrupts ; 

Program check interrupts are handled by entry point IBMBERRA. PL/I 
interrupt handling is established by means of a STXIT macro (issued in 
module lEMDPII) which gives the supervisor the addresses of a small 
piece of code and a 72-byte save area in the implementation appendage 
(TIA) . When an interrupt occurs, the supervisor saves the old PSW and 
the contents of registers RO through BR in the save area and tranches to 
the code in the TIA. This code loads the address of the save area into 
register RO and branches to the address held in a word called TERA in 
the TIA. Provided that control was not already in the error handler 
when the interrupt occurred, TERA contains the address of IBMBERRA. 

IBMBERRA saves the second word of the old PSW (from the save area) and 
the contents of registers RO through RY in the current DSA,, and then 
changes the address part of the old PSW in the save area to an address 
(EROIO) in IBMDERR. An EXIT macro is then issued, and the supervisor 
returns control to EROIO. 

On entry to EROIO, a flag is set to indicate that the module was entered 
at entry point IBMBERRA. 

Processing the Interrupt 

IBMDERR creates a two-byte PL/1 internal error code from the interrupt 
code in its workspace. 

If the interrupt was an operation exception, a routine addressed by the 
TAFF slot in the TIA is called. In a machine with floating point 
hardware, this routine is merely an immediate return to IBMDERR. For 
machines without floating point hardware, the routine addressed picks up 
the PSW, finds the operation code of the instruction that caused the 
exception, and compares that code with the floating point instruction 
operation codes. If it was a floating point instruction that was 
attempted, then the routine sets on a bit in the error code in the DSA 
belonging to IBMDERR, changing it from FFOl to FF21. 

If the interrupt corresponds to a PL/1 on-condition, the floating point 
registers are saved in IBMBERRAs DSA in case return is to be made to the 
point of interrupt. If the interrupt was floating point underflow then 
the double word in which the register that underflowed was stored is set 
to true zero. 
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If a fixed-point, decimal, or exponent overflow or fixed-point divide 
has occurred, this may correspond to SIZE in the original program, 
rather than to FIXEDOVERFLOW or ZERODIVIDE. If this is the case 
compiled code will have set a bit in the interrupt qualifier byte in the 
TCA. Hence if this bit is set, IBMBERRA creates a code for SIZE and 
sets the "ignore" bit in the qualifier byte in the TCA. If the 
"ignore" bit is set already when one of the above exceptions occurs, 
IB^3BERRA returns to the point of interrupt. Having created the internal 
error code, IBMBERRA branches to the main condition handling logic 
described below. 

Conditions and Errors Detected by Code 

When a condition is to be raised by the library or compiled code, 
IBMBERRB is passed an interrupt control block containing a two or four 
byte code indicating which condition to raise. For PL/1 on-conditions, 
the code consists of four bytes. The first byte of this code is the 
same as the code which is placed in the on-cell or the dynamic ONCB when 
an ON statement for the condition is executed. The second byte gives the 
particular situation which caused the condition to be raised (e.g. 
attribute conflict for UNDEFINEDFILE) . The third and fourth bytes 
contain flags indicating which ON functions and pseudo-variables are 
valid for the condition. If the condition is a qualified condition, the 
interrupt control block (ICB) also contains a qualifier. The ICB can be 
up to 6 words long for the CHECK condition. For such a condition, the 
third word is always required, and contains the DSA level number and 
flags. The fourth word is required for CHECK of an array element. Word 
five is the address of an implementation defined block to define the 
variable. The sixth word may be used to address the generation of the 
variable being checked. 

For conditions for which there is no PL/1 on-condition, and for which 
the action is to comment (i.e. put out a message) and raise the ERROR 
condition, the code is two bytes long. The first byte gives the class of 
the condition (e.g. I/O, computational) and the second byte gives the 
particular error in that class. The values of the first byte of these 
codes run from X*FF' downwards, in twos. If entry has been made via 
entry point IBMBERRA a code of this type will have been created. 

lEMDERR determines whether it is dealing with an on-condition or an 
error condition by testing the value of the first byte of the code 
passed to it. The code is moved to the ONCA; if the condition is an ON 
condition the four bytes of the code are moved, otherwise two bytes are 
rocved, the other two bytes in the ONCA being set to zero. The action in 
the case of a non-on condition is first of all to print a diagnostic 
message. The message is produced by the transient module IBMDESM, which 
is dynamically loaded and invoked. This module is described in DOS PL/I 
T ran s ient library; Pr o gram Logic . 

On return from, the transient message module, a code for the ERROR 
condition is created and the action now taken is that for on-conditions. 

For each on-condition, IBMDERR contains an action byte containing 
information on the course of action that is to be taken. The format of 
the action byte is as follows: 

Bit =0 Condition may be enabled or disabled. 
1 Condition always enabled. 

Bit 1 =0 No comment on standard system action (SSA) . 
1 Comment on SSA. 
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Bit 2 =0 Continue on SSA. 

1 Raise ERROR on SSA. 

Bit 3 =0 Return to point of interrupt on return from on-unit. 
1 Special action on return. 

Bit U =0 Non-qualified condition. 
1 Qualified condition. 

Bits 5-7 unused. 

When an ON condition is raised, lEMDERR first of all determines the 
enablement of the condition. Bit of the action byte for the 
condition determines whether there is an entry in the enable bits of the 
DSA. If so, IBMDERR tests the relevant bit. If it is "one", i.e. 
the condition is disabled, an immediate return is made to the point of 
interrupt. If there is no entry in the enable bits for the condition it 
is always enabled. Further tests must be made in the case of the CHECK 
condition since a value in the enable bit only means that some CHECK 
condition is enabled but does not say anything about the particular 
CHECK which has been raised. 

A search is made down the static chain of DSAs. The dynamic ONCBs in 
each DSA are tested for one containing the code for CHECK and the 
correct qualifier. If one is found then the enablement is determined 
from the enablement bit in the ONCE. If no match is found in a DSA, 
the enable bits for that DSA are tested to determine if there is a CHECK 
or NOCHECK prefix without a list in the associated block. If not, 
testing continues with the next DSA in the static chain. If so, a 
second bit in the current enable bits gives the enablement. 

Having determined the enablement of the condition, the establishment 
must now be found. If the condition is unqualified, the list of ON 
cells in each DSA in the dynamic chain is searched by means of a TRT 
instruction, using the special table in the TCA, for a code matching the 
first byte of the code passed to IBMDERR. If a matching on-cell has not 
been not located when the dummy DSA is reached, standard system action 
is taken for the condition, the action on SSA being taken from the 
Action Byte. If a match is found, the corresponding static ONCB is 
located. 

If the condition is qualified, the chain of dynamic ONCBs in each DSA in 
the dynamic chain is scanned for one containing the correct code and 
qualifier. If a match is not found, SSA is taken except for the CHECK 
condition. If the matching dynamic ONCB specifies that the condition is 
not established then the search is continued. If no matching ONCB is 
found for CHECK, tests must now be made to see if there is an 
establishment for unqualified CHECK. This is done by searching the ON 
cells as for an unqualified condition. 

When a matching ON cell has been found or a matching ONCB which does not 
specify unestablished, then the ONCE is tested as follows; 

1. If SNAP is specified, SNAP messages must be printed. This is done 
by loading and invoking the transient module IBMDESM. This module 
is described in DOS PL/I Transient Library; Program Logic . 

2. If SYSTEM is specified, normal system action is taken. 

3. If there is a GO TO only in the on-unit then the GO TO is performed 
without entering the on-unit. 
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U. If there is a null cn-unit, the action which is performed on return 
from an on-unit is taken. 

5. If there is an on-unit which is neither null nor consists only of a 
GOTO stateirent, IBMDERR invokes it. 

Before branching to the on-unit, IBMDERP irust perform some housekeeping 
duties. The contents of the interrupt qualifier byte in the TCA are 
saved in IBMDEERA's DSA and the qualifier byte is set to zero. 
IBMDERRA then invokes the Get library Workspace routine to obtain a new 
LWS. Tests must be made to see if the current ONCA is correctly set up 
for any ON built- in- functions or pseudo-variables which may be used in 
the on-unit. If the condition is I/O, a string locator is placed in the 
ONCA fcr ONFILE. If the condition was signaled, the locators for 
ONSOURCE, ONKEY and DATAFIELD are set to give null strings, the string 
locator for CNCHAR is set to give a blank, and the value of ONCOUNT is 
set to zero. 

Having performed the necessary housekeeping, IBMDERR invokes the on- 
unit, having first loaded register R5 with the address of the DSA in 
which the matching on-cell or dynamic ONCE was found. 

Before leaving IBMDERR to enter an on-unit or perform a GOTO, the 
interrupt linkage to IBMBERRA must be restored. This involves replacing 
the address of IBMBERRC in the TCA by the address of IBMBERRA. If there 
is no GO TO out of the on- Unit the address of IBMBERRA is replaced by 
IBMBERRC on return to IBMDERR. 

On return from an on-unit the interrupt qualifier is restored and the 
new LWS freed. The action byte for the conditionis tested to see if a 
return is to be made or if special action is to be taken. If the action 
specified is return, IBMDERR returns to the point of interrupt. 

The cases where action other than return must be performed are: 

1. ERROR - The FINISH condition is raised. 

2. FINISH - If the condition was raised following a STOP statement, or 
following the raising of ERROR or the normal termination of the 
program, the program is terminated by setting a return code in the 
return code slot in the TCA and then entering the GOTO code in the 
TCA in order to perform a GOTO to the program initialisation 
routine IBMDPIR. If FINISH was raised by the SIGNAL statement, 
IBMDERR returns to the caller. 

3. CONVERSION - Unless the condition was signaled, then a test is made 
on return from the on-unit to determine whether ONSOURCE or ONCHAR 
pseud ovariables were used in the on-unit. If not, ERROR is raised. 
If either was used, control is passed to the address contained in 
the retry slot in the ONCA. 

U. ENDPAGE - A return code is set in register BR to indicate that an 
on-unit was entered. 

5. SUBSCRIPTRANGE - The ERROR condition is raised. 



System action is performed if no matching ON cell or dynamic CNCB was 
found in the DSA chain or if the SYSTEM flag was set in the ONCB located 
as the result of a match. 

Performing system action for conditions other than the CHECK condition 
normally involves printing a system action message. The action byte 
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is tested to see if a message is required. If it is, the transient 
module IBMDESM is loaded and invoked. This module is described in DOS 
PL/ I Transient Library ; Program Logic . On return from the transient 
message module, the action byte is tested to determine the next action. 
For ERROR, the FINISH condition is raised. For FINISH, the action is the 
same as the action taken on return from a FINISH ON unit. For all other 
conditions either ERROR is raised or return is made to the point of 
interrupt. 

System action for the CHECK condition is performed by a call to module 
IBMBERC. On return from IBMBERC, return is made to the point of 
interrupt . 

Return to Point of Interrupt 

The method of returning from IBMDERR depends on the entry point at which 
it was entered. If the entry point was IBMBERRB, return is made to the 
caller in the normal way by a branch on register 14. However, if entry 
was made via IBMBERRA, a return to the point of the program check 
interrupt must be made. This is done in the following way: 

1. The module restores the floating point registers and changes the 
address in TERA to an address within itself. It then causes an 
interrupt . 

2. The supervisor gains control after the interrupt and branches to code 
in the TCA. That code causes a branch to the address in TERA, 
passing the address of the save area in register 1. 

3. The module then changes the address in TERA to that of IBMBERRA and 
resets the contents of the save area to what it was when IBMBERRA was 
first entered. 

U. An EXIT macro is issued, and the supervisor returns control to the 
point of the original interrupt. 

Entry Point IBMBERRC 

Transient module IBMDPEP is loaded and invoked to print the message, and 
a DUMP macro is issued to dump main storage and terminate the job. 
Module IBMDPEP is described in DOS PL/ I Transient Library ; Proqam Logic . 

Linkage 

Entry Points IBMBERRA and C ; 

Rl = A (save area) 

Entry Point IBMBERRB ; 

Rl = A (interrupt control block) 

Calls 

IBMBERC - CHECK (system action) . 

IBMDESM - Error message module (transient). 

IBMDPEP - Housekeeping diagnostic message module. 

IBMDPIF - Operation Exception Checking, (No floating-point support) . 
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CHAPTER 3: OPEN AND CLOSE ROUTINES 



The resident library contains one module concerned with opening and 
closing PL/I files: IBMDOCL. This module is a bootstrap routine that 
effects linkage between compiled code or module IBMDRIO (chapter U) and 
the DOS PL/I Transient Library. The transient library is described in 
DOS PL/ I Transient Library ; Program Logic . 



MODULE DESCRIPTIONS 

IBMDOCL - OPEN/CLOSE Bootstrap 

Function 

IBMDOCL is used by compiled code and by the library to open and close 
files. It has five entry points: 

IBMBOCLA : Explicit open. 

IBMBOCLB: Implicit open. 

IBMBOCLC: Explicit close. 

IBMBOCLD : Implicit close. 

IBMBOCLG : Implicit open by in-line compiled code. 

I Note: On CICS these functions are provided by entry points to DFHPLII 
I which acts as a bootstrap to the transient library modules. 
Method 

Entry Points IBMBOCLA, B, C, and D ; 

These four entry points of the module share the same code. The entry 
point that was called is determined by examining the contents of the 
caller's branch register. 

The link-edit name of the required transient module is IBMDOCAA for 
Close and IBMDOP*A for Open, where * is filled in from the FCB, having 
been set there by the compiler. The link- edit name is set up in 
workspace in a field called ZNAM. The module then acquires storage for 
the transient OPEN/CLOSE modules and if necessary, any buffers and loads 
the module specified in ZNAM. 

The callers branch register is then exmained to see whether IBMDOCL was 
entered at an "explicit" or an "implicit" entry point, and the required 
entry point of the transient open or close module is set up in the 
branch register. IBMDOCL then branches and links to the transient 
module. 

On return from the transient open or close module, the storage that was 
obtained for the transient module is freed. For Open, part of the space 
obtained may have been used for the transmitter, in which case the 
actual amount of the space to be freed will have already been modified, 
causing IBMDOCL to automatically free only the right amount. A test is 
then made to determine whether or not the operation that has just been 
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performed was an implicit open. If it was not, control is returned to 
the caller. If it was, the following action is taken. 

The module chains back to the previous DSA. If this is not a compiled 
code DSA, it must belong to IBMDRIO (chapter 4); i.e., the record I/O 
statement that caused the implicit open is being implemented by the 
library. In this case, IBMDOCL chains back to the compiled code DSA and 
reestablishes the compiled code environment. It then executes a branch 
and link on the branch register, i.e., it recalls IBMBRIOA to execute 
the I/O statement. 

If the previous DSA is a compiled code DSA, the record I/O statement 
that caused the implicit open is being implemented by compiled code. In 
this case, IBMDOCL sets the branch register save slot to the address of 
the LIOCS routine, and then restores the compiled code environment. It 
then tests the FCB to determine whether the file is an INPUT or and 
OUTPUT file, and branches to the GET or the PUT entry point of the LIOCS 
routine as appropriate. 

Entry Point IBMBOCLG ; 

For consecutive buffered input and output files, the calls to the LIOCS 
routine for GET and PUT may be made directly from compiled code. 

The address of the LIOCS routine is held in a field in the DTF. Before 
the file has been opened, this field contains the address of a point in 
IBMDOCL 8 bytes before entry point IBMBOCLG. Compiled code calls the 
LIOCS routine by branching to an address at an offset of either 8 or 12 
from the LIOCS address in the DTF; an attempt to effect I/O on an 
unopened file thus causes entry to IBMBOCLG. 

IBMBOCLG sets register 15 to point to entry point IBMBOCLB (implicit 
open) and then branches on it. 

Linkage 

Entry Point IBMBOCLA : 

Rl = A(PLIST) 

PLIST = A (number of files) 

A (FCB) 

A(OCB) or zero 

A (title) or zero 

A(pagesize) or zero 

A(linesize) or zero 

The last five items in the parameter list are repeated for each file 
that is to be opened. 

E ntry Poi n t IBMBOCLB : 

Rl = A (PLIST) 
PLI3T = A (FCB) 
A{RCB) 

R2 = A(FCB) 
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Entry Point IBMBOCLC ; 

Rl = A(PLIST) 

PLIST = A (number of files) 

A(FCB) 

A (disposition word) 

The last two words are repeated for each file that is to be closed. 

Entry Point IBMBOCLD ; 

No parameters are passed to this entry point. 

Entry Point IBMBOCLG ; 
R2 = A(FCB) 



Calls 

IBMDOPM - Open module (transient). 
IBMDOPP - Open module (transient) . 
IBMDOPS - Open module (transient). 
IBMDOPV - Open module - VSAM (transient) . 
IBMDOPX - Open module (transient) . 
IBMDOCA - Close module (transient). 
IBMDOCV - Close module - VSAM (transient) 
IBMDPGR - storage management. 



Called By 

Entry Points IBMBOCLA, C, and G ; 

Compiled code. 

Entry Point IBMBOCLB : 

IBMDRIO - Record I/O interface module. 

Entry Point IBMBOCLD (at termination) ; 
IBMDPIR - Program initialization from System. 



40 Licensed Material - Property of IBM 



CHAPTER U: RECORD I/O ROUTINES 



The resident library contains one module concerned with RECORD I/O: 
lEMDRIC. This module provides an interface between compiled code and 
the DOS PL/I Transient Library. The transient library is described in 
DOS PL/I Transient Library; Program Logic . 



MODULE DESCRIPTIONS 



IBMDRIC - Record I/O Interface Module 

Function 

To act as an interface between the record I/O transmitter modules and 
the calling programs and to load record I/O error modules. The module 
has four entry points: 

IBMBRIOA : Check the validity of the I/O statement and call the 
transmitter. 

IBMBRIOB: Load a record I/O error module and branch to it. 

IBMBRICC: Raise ERROR for invalid statements. 

IBMBRIOD: Interface between record I/O statements implemented by in-line 
code and the record I/O error module. 

Method 

Entry Point IBMBRIOA : IBMBRIOA loads the parameters required by the 
record I/O transmitters into registers (see Linkage below) and then 
tests the validity of the information in the request control block (RCB) 
by executing a test under mask instruction in the RCB. If the 
information is valid, the routine branches to an address held in field 
FATM in the file control block (FCB) . This field holds the address of 
the appropriate transmitter if the file is open, or the address of the 
implicit open routine lEMBOCLE if it is not. If the information in the 
RCB is invalid, the routine branches to the address held in field FAIS 
in the FCB. This field holds the address of entry point IBMBRIOC if the 
file is open, or the address of the implicit open routine IBMBOCLB if it 
is not. 

Entry Point IBMBRIOB : IBMBRIOB creates the name of the required error 
module by inserting the 7th letter, obtained from the FCB, into the 
skeleton name IBMDRE*A. The routine then scans the the transmitter 
chain, searching for the required module. If the module is found, its 
responsibility count is incremented by one; otherwise, IBMBRIOB obtains 
storage, loads the error module, and a-dds it to the chain. Finally, 
IBMBRIOB loads the address of the error module into the FCB and branches 
to it. 

Entr y Point IBMBRIOC ; IBMBRIOC branches to the error handler IBMBERRB, 
passing the address of the file name and the "unsupported op" error 
code. 
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Entry Point IBM BRIOD; This entry point is entered when compiled code is 
executing a record I/O statement in-line and a condition is to be 
raised. 

If the required record I/O error module is already loaded, it is entered 
using the address in the FCB. Otherwise, the error module is loaded and 
entered as described for entry point IBMBRIOB above. 



Linkage 

Entry Point IBMBRIQA: 



Input: 

Rl 
PLIST ■■ 



A(PLIST) 

A (FCB) 

A (RGB) 

A(RD) or A (ignore factor) or A (target for buffer address 

in READ SET statements) 
A(KD) or zero 
A(EV) or zero 
A (abnormal locate return address for LOCATE statements) 



Output to transmitter: 

Rl = A (PLIST) (see above) 

R2 = A (FCB) 

R5 = A(RCB) 

R6 = A(RD) or A (ignore factor) or A (target for buffer address 

in READ SET statements) 

R7 = A(KD) 

R8 = A(EV) 



Entry Points IB MBRIOB, C, and D : 
R2 = A (FCB) 



Calls 

IBMDERR 
lEMDOCL 
IBMDR»* 
IBMDRE* 



Error handler. 

Open/ close bootstrap (implicit open) 

RECORD I/O transBitter. 

RECORD I/O error module. 



Called By 

Compiled code 

IBMDJWT - WAIT module. 

lEMGJWT - WAIT module. 
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CHAPTER 5: STREAM I/O ROUTINES 



Communication between compiled code and the library is via a STREAM I/O 
control block (SIOCB), which exists for the duration of a single GET or 
PUT statement and is situated in the compiled code DSA. A full 
discussion of the organization of STREAM I/O and a description of the 
SIOCB are given in DOS PL/I Optimizing Compiler: Execution Logic . The 
use of the SIOCB in stream input/output is shown in Figure 5.1 

The resident library modules used fcr STREAM I/O may be divided into the 
following categories: 

1. Initialization modules. 

2. Input/output director modules. 

3. Conversion director modules. 
U. Format and option modules. 
5. Transmitter modules. 

In the execution of a GET FILE or PUT FILE statement, the first call 
from ccmpiled code is to an initialization module. The initialization 
modules are: 

IBMDSII - GET FILE initialization. 

IBMDSIL - GET and PUT FILE initialization. 

IBMDSIO - PUT FILE initialization. 

The initialization module tests the validity of the I/O statement, opens 
the file if necessary by a call to module lEMDOCL, and completes the 
SIOCB. If the statement contains the PAGE, LINE, or SKIP option, the 
initialization module calls the appropriate option module to handle it. 

A fourth initialization module, IBMDSIS, is provided to handle GET and 
PUT STRING statements. 

The movement of data items between external media and PL/I variables 
involves two separate processes; the movement of records between the 
external medium and an internal buffer, and the movement of data items 
between the buffer and the PL/I variable. There is not necessarily a 
one-to-one correspondance between these moves, since a record may 
contain more than one data item, and a data item may span one or more 
record boundaries. 

In general, the movement of data is controlled by input/output director 
modules. These modules are: 

IBMDSDI - Data- directed input. 
IBMDSDO - Data-directed output. 
IBMDSEI - Edit- directed input. 
IBMDSED - Edit-directed input/output. 
IBMDSEO - Edit-directed output. 
IBMDSII - List-directed input. 
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IBMDSLC - List-directed output. 

lEMDSlE - Edit- directed combination module. 

IBMDSEH - Edit-directed ccirbination subset module. 

lEMDSDJ - Data-directed input (restricted conversions). 

IBMDSLJ - List-directed input (restricted conversions). 



The edit-directed modules IBMDSEI and lEMESEO are called only when a 
data item spans a record boundary and the conversion, if any, is to be 
done by compiled code. Module lEMDSED is used for complete library 
control over the edit-directed input or output of a single item. 

The director modules effect movement of records between the external 
medium and the buffer by calling the appropriate STREAM I/O transmitter 
module. With the exception of modules IBMDSTF and IBMDSTI, which are 
described in this chapter, the STREAM I/O transmitter modules are in the 
transient library and are described in the DOS P L /I Transient Library ; 
Program Logic . 

The raoveitent of data from the buffer to a PL/ 1 variable involves the 
identification of the required data item and the selection of the 
required conversion. If the end of the record is reached before the end 
of the data item, temporary storage must be obtained for the first part 
of the data item and the next record read. Similarly, on output, the 
data item must be converted to the required external format and placed 
in the buffer or buffers. 

The input/ output directors thus have to acquire the following 
information: 

1. Where in the record is the required variable situated, or where in 
the record is the variable to be placed. 

2. Must a new record be written or read. 

3. Does the variable span a record boundary. 

4. What conversion is needed. 

GET and POT STRING Statements are handled by the input/output directors 
just as if they were GET and PUT FILE statements. A dummy FCB for the 
statement is set up by the initialization module, and the source or 
target string, as appropriate, is treated as an I/O buffer. For 
"output", the "transmitter" addressed by the dummy FCB is entry point 
IBMBERRB of the error handler. Thus any attempt to move a string that 
is too large for the "buffer" results in an entry to the error handler. 
For "input", the "transmitter" consists of code set up by module IBMBSIS 
in the dummy FCB. This code sets the end-of-file flag and then returns. 

Conversions in edit-directed I/O are handled by a number of conversion 
director modules which select the appropriate conversion modules in the 
conversion package (chapter 6). The conversion director modules are: 

IBMBSAI - Input conversion director 

(A, character-P, and B formats) 
IBMBSAO - Output conversion director 

(A format) 
IBMBSBO - Output conversion director 

(character-P and B formats) 
IBMfiSCI - Input conversion director 

(C format) 
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IBMBSCO - Output conversion director 

(C format) 
IBMBSFI - Input conversion director 

(F and E formats) 
IBMBSFO - Output conversion director 

(F and E formats) 
IBMBSPI - Input conversion director 

(arithroetic-P format) 
IBMBSPO - Output conversion director 

(arithmetic-P format) 
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j module | 
1 name * j 


SIOCB Fields j coirjnents | 
Referenced! Altered | | 


1 IBMDSII 1 
I or 1 
1 IBMDSII 1 


STYP 1 j code defining the type of statement | 
SRTN 1 1 address of the dummy label fcr the | 
1 1 next stateirent | 
SDSA 1 1 DSA level number (for GET DATA) | 
1 SFCB 1 address of the FCB j 
1 SFLG j cleared | 
1 SCNT i cleared | 
1 SOCA 1 address of the ONCA | 


1 IBMDSIO 1 


STYP j 1 code defining the type of statement | 

1 SFCB 1 address of the FCB j 

SDSA j 1 DSA level number (for PUT DATA) | 

SFLG 1 cleared j 

SDFL 1 cleared | 

1 SCNT j cleared j 

1 SOCA 1 address of the ONCA | 


1 IBMDSIS i 


STYP 1 j code defining type of statement j 
SDSA 1 1 DSA level number (for GET/PUT DATA) | 
1 SFCB 1 address of the dummy FCB | 
1 SFLG 1 cleared | 
SDFL 1 cleared | 
' SOCA 1 address of the ONCA | 
! SSTR 1 the dummy FCB | 


1 IBMDSLI 
l(IBMBSLIA) 


STRG ! 1 address of the target data or locator | 
STDD 1 1 address of the target DED | 


1 IBMDSL J 
l(IBMBSLJA) 


STRG 1 1 address of the target data or locator j 
STED I 1 address of the target DED j 


1 IBMDSLO 
l(IBMBSLOA) 

1 


SSRC 1 address of the source data or locator | 
SSDD 1 address of the source DED | 
STRG 1 1 address of varying string for name | 
STDD 1 1 address of subscripts string locator | 

I 1 Fields STRG and STDD are used only | 

j 1 when the module is called for PUT | 

1 DATA. 1 

1 Note that when STDD =0, | 

1 1 only the name field addressed by | 

j 1 1 STRG is put out by IBMBSLOA. In this | 
1 j case fields ssRC and ssDD are not j 
1 1 used. This technique is used for | 
1 1 data-directed output (including ( 

i 1 1 CHECK) of program control data. | 


1 IBMDSEI 


1 SSDD 1 1 address of the source format DED | 

1 SSRC 1 address of the source in a buffer | 

1 1 1 or a VDA 1 



* NOTE ; In the above figure, where the information is applicable only 
to a specific entry point, then that entry point name is given 
in parenthesis, after the module name. 



Figure 5.1. (Part 1 of 2) . 



Use of the stream input/output control block 
(SIOCB) 
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1 rnodule | SIOCB Fields j comments | 
1 name * j Referenced! Altered | | 


1 lEMDSEO j STRG ( j address of VDA containing the | 
11 11 converted field j 
1 1 STDD j 1 address of the target format DED | 


lIEhJDSED i SSED j j address of the source format DED | 
|(IBMBSEDA)j STRG | | address of the target data or locator | 
1 1 STDD I 1 address of the target DED | 


IIBMDSEE 1 SSRC j | address of the source data or locator j 
KiBMBSEDB)! SSDD j | address of the source DED j 
j 1 STDD 1 1 address of the target format DED j 


IIBMDSEE 1 SSDD j j address of the source format DED j 
|(IBMBSEEA)| STRG i | address of the target data or locator j 
1 1 STDD 1 j address of the target DED | 


IIBMDSEH 1 SSRC | \ address of the source data or locator j 
|(IBMBSEHA)| SSDD i | address of the source DED j 
1 1 STDD j j address of the target format DED j 


IIBMDSEH 1 STDD • | address of a format DED containing the| 
|(IBMBSEHB)| j parameter in the second halfword j 
l(IBMBSEHC)l 1 1 <P"T statement only) | 


1 lEMDSPL 1 SSDD | address of a format DED containing thej 
II j parameter in the second halfword j 
II 1 (GET statement only) | 

I 1 STDD 1 address of a format DED containing the| 

II ' 1 parameter in the second halfword | 
II 1 j (PUT statement only) | 


1 IBMDSXC 1 SSDD 1 | address of a format DED containing thej 
|(IBMBSXCA)| 1 1 parameter in the second halfword | 
l(IBMBSXCC)l j 1 <<^^T statement only) | 


IIBMDSXC 1 STDD 1 | address of a format DED containing thej 
|(IBMBSXCB)j 1 j parameter in the second halfword | 
l(lBM?lxcD)l j 1 '^"'f st^teirent only) j 



NOTE: In the above figure, where the information is applicable only 
to a specific entry point, then that entry point name is given 
in parenthesis, after the module name. 



Figure 5.1. (Part 2 of 2). 



Use of stream input/output control block 
(SIOCB) 
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MODULE DESCRIPTIONS 



INITIALIZATION MODULES 

lEMDSII - GET FILE Initialization 

Function 

Tc initialize GET FILE statements, checking the validity of the 
statement for the file and opening the file if necessary. The SIOCB is 
established in the area passed by compiled code. The module has seven 
entry points : 

IBMB SIIA ; GET FILE 

IBMBSILA: GET FILE 

IBMBSIIB: GET FILE SKIP 

IBMBSILB: GET FILE SKIP 

IBMBSIIC; GET FILE COPY 

IBMBSIID; GET FILE SKIP COPY 

IBMBSIIT ; TERMINATE COPY 

Method 

A flowchart of the module is given in chart DSII. 

Error and Exceptional Conditions 

The ENDFILE condition is raised if end of file has been reached in a 
previous GET statement. 

The ERROR condition is raised: 

1. If the file referenced in the GET statement is not a stream input 
file. 

2. If a file referenced in a COPY option is not a stream output file. 

3. If further output on the copy file is prevented by a prior 
condition. 

4. If an attempt to open the file implicitly, fails. 

Linkage 

Entr y Points IBMBSIIA and IBMBSILA t 

Rl = A(PLIST) 
PLIST = A(FCB) 

A(SIOCB) 
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Entry Poi nts IBMBSIIB and IBMBSILB : 

Rl = A(PLIST) 
PLIST = A(FCB) 

A(SIOCB) 

A(fullword SKIP parameter) 

Entry Point IBMBSIIC; 

Rl = A (PLIST) 
PLIST = A(FCB) 

A(SIOCE) 

A(FCB Of COPY file) 

Entry Point IBMBSIID : 

Rl = A (PLIST) 

PLIST = A(FCB) 

A(SIOCB) 

A(fullword SKIP parameter) 

A(FCB Of COPY file) 

Entry Poin t IBMBSIIT: 

Rl = A(SICCB) 



Calls 

IBMDOCI - Open/close bootstrap. 

lEMDSCP - COPY module. 

IBMDSPL - PAGE, LINE, and SKIP options (called only for SKIP) 

Called By 
Compiled code. 



IBMDSIL - GET FILE and PUT FILE Initialization 



Function 

To initialize GET FILE and PUT FILE statements, checking the validity of 
the statement for the file and opening the file if necessary. The SIOCB 
is estatlished in the area passed by compiled code. The module is also 
used to terminate a PUT FILE statement. It has eight entry points: 

lEMBSILA; GET FILE 

PUT FILE 



IBMBSIOA 



IBMBSILB 



IBMBSIOE 



lEMESIOC 



IBMESIOD 
IBMBSIOE 
IBMBSIOT 



GET FILE SKIP 

PUT FILE PAGE 

PUT FILE LINE 

PUT FILE PAGE LINE 

PUT FILE SKIP 

TERMINATE PUT FILE (duiriry) 
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Mtthcd 

h fiovjcnart of th^e irodule is given in chart: DSIL. 

Error and Exceptional Conditions 

The ENDFILE condition is raised if end of file has been reached in a 
previous GET statement. 

The E^SOR condition in raised if: 

1. The file referenced in a GET statement is not a stream input file, 
or if the file referenced in a PUT statement is not a stream output 
file. 

2. There is a PRINT option en a non-PRINT file. 

3. Further output on an output file is prevented by a previously raised 
condition. 

U. An attempt to open the file implicitly fails. 

Linkage 

Entry Points IBMBSILA, IBMBSIOA and IBMBSIQE : 

Rl = A(PLIST) 
PLIST = A(FCB) 

A(SIOCB) 

Entry Points IBMBSILB, IBMBSIQC^ IBMBSICD and IBMSIOE : 

Rl = A (PLIST) 
PLIST = A(FCB) 

A(SIOCB) 

A(fullword SKIP or LINE parameter) 

Calls 

IBMDOCL - Open/close bootstrap. 
lEMDSPL - PAGE, LINE, and SKIP options. 

Called By 
Ccrrpiled code. 

IBMDSIO " PUT FILE Initialization_ 

Function 

Tc initialize PUT FILE statements. The module has six entry points: 

IBME SIQA : PUT FILE 

IBMBSIQE t FUT FILE PAGE 

lEMBSIOC: PUT FILE LINE 
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IBMBSIOD: PUT FILE PAGE LINE 

IBMBSIOE ; PUT FILE SKIP 

IBMBSIOT ; TERMINATE PUT FILE (This is a dummy entry point) 

Method (chart DSIO) 

The module checks the validity of the statement, opens the file if 
necessary by a call to IBMDOCL, and completes the SIOCB. If the PAGE, 
LINE, or SKIP option is present, module IBMDSPL is called. 

Error and Exceptional Conditions 
The ERROR condition is raised if: 

1. The file referenced in the PUT statement is not a STREAM OUTPUT 
file. 

2. A print control option is specified for a non-PRINT file. 

3. Further output is prevented by a prior condition. 

4. An attempt to open the file implicitly, fails. 

Linkage 

Entry Points IBMBSIOA and B ; 

Rl = A(PLIST) 
PLIST = A(FCB) 

A(SIOCB) 

Entry Points IBMBSIOC and D ; 

Rl = A (PLIST) 
PLIST = A(FCB) 

A(SIOCB) 

A(fullword LINE parameter) 

Entry Point IBMBSIOE ; 

Rl = A(PLIST) 
PLIST = A(FCB) 

A (SIOCB) 

A(fullword SKIP parameter) 

Entry Point IBMBSIOT ; 

No linkage 

Calls 

I IBMDOCL - Open/close bootstrap - for non-CICS systems . 
IBMDSPL - PAGE, LINE, and SKIP options. 
IDFHPLII - IBMDOCL entry points - Open/close bootstrap. 



Called By 
Compiled code. 

Licensed Material - Property of IBM Chapter 5: Stream I/O Routines 51 



Page of LY33-6011-1, Revised October 1976 by TNL LN33-6179 



IBMDSCP - COPY module. 

IBMBERC - CHECK (systeiTi action) module. 



IBMDSIS - GET or PUT STRING Initialization 



Function 



To initialize GET or PUT STRING statements by creating a dummy FCB in 
the SIOCB, and to perform subsequent housekeeping for GET or PUT STRING 
statements. The module has three entry points: 

IBMBSISA : Initialize GET STRING 

IBMBSISB ; Initialize PUT STRING 

IBMBSIST ; GET and PUT STRING housekeeping. 

Method (chart DSIS) 

Entry Point IBMBSISA ; 

The module, sets up a dummy FCB in the SIOCB and moves a short length of 
code into it. The address of this code is then placed in the 
transmitter address field FATM in the dummy FCB. 

The code moved to the dummy FCB consists of two instructions; the first 
is to set the end of file flag, the second is a return to the caller. 

Entry Point IBMBSISB ; 

The module sets up a dummy FCB in the SIOCB. The address of entry point 
IBMBERRB of the error handler is then set up in the transmitter address 
field FATM and an error code is set up at the beginning of the FCB. 

Entry Point IBMBSIST : 

This entry point is called after the first assignment to a FIXED string 
and after every assignment to or from a VARYING string. 

For PUT STRING Statements, the module blanks out any unused bytes in a 
fixed length target, or updates the current length of a varying length 
target . 

For GET STRING statements, if the target is the string itself, its 
characteristics are changed during the execution of the statement. 

Linkage 

Entry Points IBMBSISA 6 B : 

Rl = A(PLIST) 
PLIST = A (string locator) 
A (SIOCB) 
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Entry Point IBMBSIST ; 
Rl = A(SIOCB) 
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Called Ey 

Ccir.piled code. 

lEMDSED - Edit-directed input/output. 

IBMDSEE - Edit-directed combination module. 

IfiMDSEH - Edit-directed combination subset module. 

IBMDSEC - Edit-directed output. 

lEMDSLI - List-directed input. 

IBMDSLO - List-directed output. 

lEMDSXC - X and COLUMN format items. 



INPUT/CUTPOT DIRECTOR MODULES 



IBMDSDI - Data-directed Inpu t 

Function 

To implement PL/I GET DATA statements. The module has four entry 
points: 

lEMBSDIA ; GET DATA Statement with data list. 

lEMBSDJA ; GET DATA Statement with data list. 

lEMBSDIE t GET DATA Statement without data list. 

lEMBSDJE: GET DATA statement without data list. 

Method (chart DSDI) 

The module compares the names of the variables in the input stream with 
those in the data list (entry point IBMBSDIA/IBMBSDJA) or with all the 
names known at the point of execution (entry point lEMBSDIB/IEMBSDJB) . 
When a m^atch is found, the module evaluates the address of the target 
variable and then calls IBMDSLI to scan the input and convert and assign 
it to its target. 



Error and Exceptional Conditions 

The NAME condition is raised if a variable name in the input stream is 
not in the data list (entry point lEMESEIA/IBMESDJA) or is not known at 
the point of execution (entry point IBMBSDIB/IBMBSDJB) , unless the 
STRING option has been specified, in which case the ERROR condition is 
raised. 

The ENDFILE condition is raised if end-cf-file is detected while 
scanning the leading blanks for an item. For GET STRING statements, the 
ERROR condition is raised if the end of the string is detected under 
these circumstances. 

The CHECK condition is raised for each element in the input stream that 
may appear in a CHECK list. 
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The TRANSMIT condition is raised if an input error has been detected on 
the file in the following cases: 

1. Null iteir. 

2. Invalid item causing NAME to be raised. 

3. Teririnating semicolon. 

4. End-of-file detected while scanning leading blanks on an item. 

Linkage 

Entry Points lEMBSDIA .and IBMBSDJA; 

Rl = A(PLIST) 
PLIST = A(SICCB) 

A (symbol table 1) 

A (symbol tafcle 2) 



A(syn!bcl table n) 
The high order bit of the last arguirent is set to 'I'B, 

Entry Points lEMBSDIB and IBMBSDJB : 

Rl = A (PLIST) 
PLIST = A(SICCE) 

A (first list element in chain of 
symbol table elements) 

Calls 

IBMDSLI - list-directed input. 

lEMDSLJ - List-directed input (restricted conversions) 

Relevant stream I/O transmitter. 

Called By 
Compiled code. 



lEMDSD J - Data-directed In p u t (restricte d conversions) 

Function 

To implement PL/I GET DATA statements. The module has two entry points! 

IBMBSDJA ; GET DATA Statement with data list. 

IBMBSDJB; GET DATA statement without data list. 

Method (chart DSD J) 

The module compares the names of the variables in the input stream with 
those in the data list (entry point lEMESDJA) or with all the names 
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known at the point of execution (entry point IBMBSDJB). When a match is 
found, the module evaluates the address of the target variable and then 
calls lEMDSLI to scan the input and convert and assign it to its target. 

Error and Exceptional Conditions 

The NAME condition is raised if a variable name in the input stream is 
not in the data list (entry point lEMESEJA) or is not known at the point 
of execution (entry point IBMBSDJB), unless the STRING option has been 
specified, in which case the ERROR condition is raised. 

The ENDFILE condition is raised if end-of-file is detected while 
scanning the leading blanks for an iterc. For GET STRING statements, the 
ERROR condition is raised if the end of the string is detected under 
these circumstances. 

The CHECK condition is raised for each element in the input stream that 
appears in a CHECK list. 

The TRANSMIT condition is raised if an input error has been detected on 
the file in the following cases: 

1. Null item. 

2. An invalid item has caused the NAME condition to be raised. 

3. Terminating semicolon. 

U. The ENDFILE condition has been raised. 

Linkage 

Entry Point IBMBSDJA; 

Rl = A(FLIST) 
PLIST = A(SIOCB) 

A (symbol table 1) 

A (symbol table 2) 



A (symbol table n) 

The high order bit of the last argument is set to *1'B. 

Entry Point IBMBSDJB: 

Rl = A (PLIST) 
PLIST = A(SIOCB) 

A( first list element in chain of 
symbol table elements) 

Calls 

IEMDSLI - List-directed input. 

IBMDSLJ - List-directed input (restricted conversions) 

Relevant stream I/O transmitter. 

Called By 
Compiled code. 
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lEMDSDQ - Data- dir ected Output 

Function 

To inipleirent all PL/I PUT DATA statements, and to produce equate strings 
for the CHECK condition. The module has five entry points. 

IBMBSDCA ; Scalar s and whole arrays. 

IBMBSDOB: Single array elements. 

IBMBSDCC : All known variables. 

IBMBSDOD : CHECK output Of a single variable. 

IBMBSDCT: Output a final semicolon only. This entry point is used for 
the special case of repetitive specification. 

Method 

A flowchart of the module is given in chart DSDO. 

Linkage 

Entry Point IBKBSDQA : 

Rl = A(PLIST) 
PLIST = A(SIOCB) 

ACsyirbol table 1) 

A (symbol table 2) 

• 

A(symbol table n) 
The high order bit of the last arguirent is set to 'I'B. 

Entry Point IBMBSDOB; 

Rl = A (PLIST) 
PLIST = A(SICCB) 

A (symbol table 1) 

A (array element 1) 

• 
• 

A (symbol table n) 
A (array element n) 

The high order bit of the last argument is set to 'I'B. 

En try Poin t IBMBSDOC; 

Rl = A (PLIST) 
PLIST = A(SICCB) 

A (first list element in chain 
of symbol table entries) 



56 Licensed Material - Property of IBM 



Entry Point IBMBSDOD; 

Rl = A(PLIS'r) 
PLIST = A(SICCB) 

A (interrupt control block) 

Entry Point IBMDSDQT : 

Rl = A(SICCB) 

Calls 

IBMDSLC - List-directed output. 
Stream output transmitter. 
(for CHECK only) 

Called By 

Compiled code. 

lEMBERC - CHECK (system action) module 



IBMDSED - Edit -directed Input/Output 

Function 

To control the housekeeping for an item of edit-directed input or 
output. The module has two entry points: 

lEMBSEDA ; Control the edit-directed input of one item. 

IBMBSEDB ; Control the edit-directed output of one item. 

Method 

A flowchart of the module is given in chart DSED. 

Error and Exceptional Conditions 

The TRANSMIT condition can occur in this module. 

The ERROR condition is raised if: 

1. End of file is encountered in the middle of a data item. 

2. An attempt is made to read or write beyond the end of the named 
string in a GET or a PUT string statement. 

The ENDFILE condition is raised if end-of-file is detected at a 
legitimate point in the input. 

Linkage 

Rl = A(SIOCB) 
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Calls 

IBMDSIS - GET or PUT STPING initialization. 
Stream I/O transmitter module. 
Conversion format director modules. 

Called Ey 

Compiled code. 

lEMDSEE - Edit-di rected Com binatio n Module 

Function 

To control the housekeeping for a data item or for an X or COLUMN format 
item in edit-directed input or output. The module has eight entry 
points : 

IBMBSEEA ; Edit-directed input of a data item. 

IBMBSEHA: Edit-directed output of a data item. 

IBMBSXCA; X format input. 

IBMBSXCB: X format output. 

IBMBSEHB; X format output. 

IBMBSXCC : COLUMN format input. 

IBMBSXCD ; COLUMN format output. 

IBMBSEHC : COLUMN format output. 

Method 

A flowchart of the module is given in chart DSEE. 

Error and Exceptional Conditions 

The TRANSMIT condition or the ENDFILE condition may be raised by this 
module. 

The ERROR condition is raised for: 

1. End-of-file encountered in the middle of a data item. 

2. A GET or PUT STRING that exceeds the string size. 

3. An invalid control format on a GET or PUT STRING statement. 

Linkage 

Rl = A(SIOCB) 
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Calls 

lEMDSIS - GET or PUT STRING Initialization. 

IBMBSMW - Missing output width niodule. 

lEMBSAI - Input conversion director. 

IBMBSBO - Output conversion director. 

IBMBSPI - Input conversion director. 

IBMBSPO - Output conversion director. 

lEMECCA - Conversion (character to arithmetic). 

IBMBCCB - Conversion (character to bit) . 

lEMECCQ - Conversion director (character to pictured character). 

IBMBCAC - Conversion director (arithmetic tc character) . 

lEMBCBC - Conversion (bit to character). 

IBMBCCC - HIGH, LOW, Assign (character strings). 

lEMDCCS - String conversion director bootstrap. 

IBMBCH - Conversion (fixed binary - float - free decimal). 

lEMBCM - Conversion (pictured decimal to packed decimal). 

IBMBCV - Conversion (packed decimal to E-f ormat) . 

lEMECW - Conversion (packed decimal to F-f ormat) . 

IBMBCT - Conversion (decimal constant to packed decimal). 

Appropriate STREAM I/O transmitter. 

Called By 
Compiled code. 

IBMDSEH ~ Edit-directe d Combination Su bset Module 

Function 

Tc control the housekeeping for a data item or for an X or COLUMN format 
item in edit-directed output. The module has three entry points: 

IBMBSEHA ; Edit-directed output of a data item. 

IB MBSEHB ; X format output. 

IBMBSEHC : COLUMN format output. 

Method 

A flowchart of the module is given in chart DSEH. 



Error and Exceptional Conditions 
The ERROR condition is raised: 
1. 



2. 



If an attempt is made to write beyond the end of the named 
string in a PUT STRING statement. 

For an invalid control format on a PUT STRING statement. 



Linkage 

Rl = A (SIOCB) 
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Calls 

lEMDSIS - GET or PUT STRING Initialization. 

IBMBSMW - Missing output width module. 

IBMBSBO - Output conversion director. 

IBMBSPO - Output conversion director. 

IBMBCAC - Conversion director (arithmetic to character). 

lEMBCBC - Conversion (bit to character) . 

IBMBCCC - HIGH, LOW, Assign (character strings). 

IBMDCCS - String conversion director bootstrap. 

IBMBCH - Conversion (fixed binary - float - free decimal). 

IBMBCM - Conversion (pictured decimal to packed decimal). 

IBMBCV - conversion (packed decimal to E- format) . 

IBMBCW - Conversion (packed decimal to F-f ormat) . 

Appropriate stream I/O transmitter. 

Called By 
Compiled code. 

IBMDSEI - Edit-directed Input 

Function 

To perform the housekeeping for an edit-directed item spanning a record 
boundary. The module has two entry points: 

IBMBSEIA ; Housekeeping for spanning item. 

IBMBSEIT ; Raise TRANSMIT for edit-directed input that has been partially 
controlled by cc»npiled code. 

Method 

A flowchart of the module is given in chart OSEI. 

Error and Exceptional Conditions 

The TRANSMIT and the "unexpected end-of-file" error conditions can occur 
in this module. 

The ENDFILE condition is raised if end-of-file is detected at a 
legitimate point in the input. 

The ERROR condition is raised if an attempt is made to read beyond the 
end of the named string in a GET STRING statement. 

Linkage 

Rl = A(SIOCB) 

Calls 

IBMDERR - Error handler. 
Relevant STREAM I/O transmitter. 
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Called Ey 
Compiled code. 

IBMDSEO - Edit-directed Ou tput 

Function 

To perforin the housekeeping for an edit-directed output item spanning a 
record boundary. 

Method 

A flowchart of the module is given in chart DSEO. 

Error and Exceptional Conditions 

The ERROR condition is raised if an attempt is made to write beyond the 
end of a string in a PUT STRING statement. 

Linkage 

Rl - A(SIOCB) 

Calls 

IBMDSIS - GET or PUT STRING initialization. 
Relevant stream I/O transmitter. 

Called By 

Compiled code. 

IBMDSLI - List-directed Input 

Function 

To move data from the input buffer to a PL/I scalar or array variable 
specified in a GET LIST statement and to direct conversion of the data 
from its external form to its internal form according to the rules of 
list-directed input. The module has four entry points: 

lEMBSLIA ; Scalar data. 

IBMBSLJA : Scalar data. 

IBMBSLIB ; Array data. 

lEMBSLJE : Array data. 

Method (chart ESLI) 

If an input item spans a record boundary, a VDA is obtained large enough 
to hold that part of the item in the first record and also the whole of 

Licensed Material - Chapter 5: Stream I/O Routines 61 

Property of IBM 



the second record. If the item then spans a further record boundary, a 
second VDA is obtained large enough to contain the next record, and so 
on. Successive VDAs are chained together. Finally, if more than one 
VDA has been obtained, a further VDA is set up to contain the whole 
iteir. 

Error and Exceptional Conditions 
The ERROR condition is raised if: 

1. End of file occurs in the middle of a data item. 

2. If, fcr a GET STRING Statement, an attempt is made to read 
beyond the end of the string. 

TRANSMIT is raised if there is a permanent transmission error on the 
file. 

CONVERSION will be raised by this module if the attributes of the source 
can not be determined, e.g., •ABC'3U. 

STRINGSIZE is raised if an attempt is made to assign a string too large 
for the target. 

ENDFILE is raised if end of file is found between data items. 

Linkage 

Entry Points IBMB SLIA and IBMBSLJA: 

Rl = A(SIOCB) 

Entry Points IBMBSLIB and IBMBSLJE; 

Rl = A(PLIST) 
PLIST = A(SIOCB) 

A( array locator) 

A (BED) 

A (half word number of dimensions) 

Calls 

IBMBCCA - Conversion director (character to arithmetic) • 

lEMBCCB - Conversion (character to bit). 

IBMBGCQ - Conversion (character to pictured character) . 

lEMDCCS - String conversion director bootstrap. 

IBMBCP - Conversion (bit to binary) . 

IBMDSCV - Conversion fix- up bootstrap. 

IBMDSIS - GET or PUT STRING initialization. 

Stream I/O transmitter 

Called By 

lEMDSDI - Data-directed input. 
IBMDSDJ - Data -directed input. 
Compiled code. 
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IBMDSLJ - List-directed In put (restricted conversions) 

Function 

To move data from the input buffer to a PL/I scalar or array variable 
specified in a GET LIST statement, and to direct conversion of the data 
from its external form to its internal form according to the rules of 
restricted list-directed input. The module has four entry points: 

lEMBSLIA; Scalar data. 

lEMBSLIE; Array data. 

IBMBSLJA: Scalar data. 

IBMESLJE ; Array data. 

Method (chart DSLJ) 

If an input item spans a record boundary, a VDA is obtained that is 
large enough to hold that part of the item in the first record and also 
the whole of the second record. If the item then spans a further record 
boundary, a second VDA is obtained large enough to contain the next 
record, and so on. Successive VDAs are chained together. Finally, if 
mere than one VDA has been obtained, a further VDA is set up to contain 
the whole item. 

Error and Exceptional Conditions 
The ERROR condition is raised: 

1. If end-of-file occurs in the middle of a data item. 

2. If, for a GET STRING statement, an attempt is made to read 
beyond the end of the string. 

TRANSMIT is raised if there is a permanent transmission error on the 
file. 

CONVERSION is raised: 

1. If the attributes of the source can not be determined, for 
example, 'ABC "34. 

2. If, because of the rules of restricted list-directed input, the 
required conversion is not one supported by the module. 

STRINGSIZE is raised if an attempt is made to assign a string too large 
for the target. 

ENDFILE is raised if end-of-file is found between data items. 

Linkage 

Entry Poi nts IBMBSLIA and IBMBSLJA : 

Rl = A(SIOCB) 
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Entry Points IBMBSLIE and IBMESLJE : 

Rl = A(PLIST) 
PLIST = A(SIOCE) 

A (array locator) 

A(DED) 

A(halfword number of dimensions) 



Calls 

IBMBCCA - Conversion director (character to arithmetic) 

lEMBCCB - Conversion (character to bit). 

IBMBCCC - Conversion (character to pictured character). 

lEMDSCV - Conversion fix-up bootstrap. 

IBMDSIS - GET or PUT STRING initialization. 

Stream I/O transmitter 



Called By 

lEMDSDI - Data-directed input. 
IBMDSDJ - Data -directed input. 
Compiled code. 



IBM DSLO - List-directed Output 

Function 

To move data from a PL/I scalar or array variable specified in a PUT 
LIST stateffient to the output buffer and to direct conversion of the data 
from its internal to its external form. The module has two entry 
points : 

IBMBSLOA; scalar data. 

IBMBSLCB : array data. 

Method 

A flowchart of the module is given in chart DSLO. 

Error and Exceptional Conditions 

The ERROR condition is raised if an attempt is made to write beyond the 
end of the string in a PUT STRING statement. 

Linkage 

Entry Point IBMBSLOA: 

Rl = A(SIOCB) 
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Entry Point IBMBSLQB: 

Rl = A(PLIST) 
PLIST = A(SICCB) 

A (array locator) 

A(DED) 

A (half word number of dimensions) 



Calls 

IBMBCAC - Conversion director (arithmetic to character), 
IBMBCBC - Conversion (bit to character) . 
IBMDSIS - GET or PUT STRING initialization. 
Stream I/O transmitter. 



Called By 

Compiled code. 

IBMDSDO - Data-directed output (Entry point IBMBSLOA only). 



IBMB SMW - Missi ng Output Width Module 

Function 

To calculate the field width for all source data types for both A and B 
output formats. The calculations of the field width are based upon the 
rules of PI/I conversions. 

Method 

A flowchart of the module is given in chart BSMW. 

Linkage 

Rl = A (SIOCB) 

with the following fields set: 

SSRC = A (source data or locator) 

SSDD = A (source DED) 

STDD = A (skeleton target FED to be completed) 

Called By 

Compiled code 

IBMDSEE - Edit-directed combination module. 

lEMDSEH - Edit-directed combination subset module. 
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CONVERSION DIRECTOR MODULES 

IBMBSAI - Input Conversion Director (A, character-P, and B Formats ) 

Function 

To direct A- format, character-P-format, and B-format input conversions, 

Method 

A flowchart of the module is given in chart BSAI. 

Error and Exceptional Conditions 

The ERROR condition is raised for invalid format specifications. 

Linkage 

Rl = A(SICCB) 



Calls 

IBMBCCA - Conversion director (character to arithmetic) . 

IBMBCCB - Conversion (tit to bit). 

IBMBCCC - Assign (character string) . 

IBMBCCQ - Conversion (character to pictured character). 

IBMBCGC - Check input (pictured character) . 

IBMBCP - Conversion (bit to fixed binary or float). 



Called By 

lEMDSED - Edit-directed input/output. 
IBNDSEE - Edit-directed combination module. 
Compiled code. 
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lEMBSAQ - Output conversion Director (A Format) 

Function 

To direct A- format conversions. 

Method 

A flowchart of the module is given in chart BSAO. 

Error and Exceptional Conditions 

STRINGSIZE can occur in this module. 

Linkage 

Rl = A(SIOCB) 

Calls 



IBMBCAC - Conversion director (arithmetic to character) 
IBMBCBC - Conversion (bit to character) 
lEMBCCC - Assign (character string) 



Called By 
Compiled code. 
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IBMBSBO - Output Conversion Director (character-P and B Formats) 

Function 

To direct B-format and P (character )-forirat conversions. 

Method 

A flowchart of the module is given in chart BSBO. 

Error and Exceptional Conditions 

CONVERSION and STRINGSIZE can occur in this module. 

Linkage 

Rl = A(SIOCB) 



Calls 

IBMDSCV - Conversion fix-up bootstrap. 

IBMBCAC - Conversion director (arithmetic tc character) . 

lEMBCBC - Conversion (tit to character) 

IBMBCBQ - Conversion (bit to pictured character) 

lEMECCQ - Conversion (character to pictured character) 

IBMBCE - Conversion (fixed decimal - free decimal - float - fixed binary) . 

XEMBCM - Conversion (pictured decimal to packed decimal) 

IBMBCR - Conversion (fixed binary or float, to bit) 



Called By 

Compiled code 

lEMDSEE - Edit-directed combination module. 

IBMDSEH - Edit-directed combination subset module. 
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IBMBSCI - Input Conver sion Director (C Format) 

Function 

To direct C-forinat input conversion. 

Method 

A flowchart of the module is given in chart BSCI. 

Linkage 

Rl = A(SIOCB) 

calls 

lEMDCCS - String conversion director bootstrap. 

IBMBSFI - Input conversion director. 

IBMBSPI - Input conversion director. 

IBMBCGZ - Set a subfield of a complex number to zero. 

Called By 

Compiled code. 

IBMDSED - Edit-directed input/output. 
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IBMBSCQ - Output Conversion Director (C Format ) 

Function 

Tc direct C- format output conversion. 

Method 

A flowchart of the module is given in chart BSCO. 

Linkage 

Rl = A(SIOCB) 

Calls 

lEMDCCS - String conversion director bootstrap. 

IBMBSFO - Output conversion director. 

IBMBSPO - Output conversion director. 

IBMBCGZ - Set a subfield of a complex number to zero. 

Called By 

Compiled code. 

lEMDSED - Edit-directed input/output. 



IBMDSCV -; Conversion Fix-up Bootstrap 

Function 

To load the transient module lEMDSCT into non-lif o, and to pass control 
to that rrodule. 

Method 

The module tests the field TSCT in the TCA Appendage to see whether or 
not the transient module IBMDSCT has already been loaded; if it has, the 
field will contain the entry point address. If the field is zero, 
IBMDSCV loads IBMDSCT and places the entry point address of that module 
into TSCT. Finally, control is passed to the loaded module. 

Called By 

Compiled code. 

lEMBCCA - Conversion director (character to arithmetic). 

IBMBCCB - Conversion (character to bit) . 

lEMBCCQ - Conversion director (character to pictured character). 
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IBMBCCL - Conversion director - complex strings (transient). 

lEMDCCR - Conversion director - non complex strings (transient). 

IBMBCGP - Check input (pictured decimal) • 

lEMBCGQ - Check input (pictured character). 

IBMBCT - Conversion (decimal constant to packed decimal). 

lEMBCU - Conversion (binary constant to packed decimal). 

IBMDSLI - List-directed input. 

IBMDSLJ - List-directed input (restricted conversions). 

IBMBSBO - Output conversion director. 



IBMBSFI - Inp ut Conversion Di rector (F a nd E Formats) 

Function 

To direct F-format and E-format input conversions. 

Method 

A flowchart of the module is given in chart BSfl. 

Error and Exceptional conditions 

The ERROR condition is raised for invalid format specifications 

Linkage 

Rl = A(SICCB) 



Calls 

IBMBCGZ - Set a subfield of a complex number to zero. 

lEMDCCS - String conversion director bootstrap. 

IBMBCT - Conversion (decimal constant to packed decimal) 



Called By 

lEMDSEB - Edit-directed input/output. 
IBMBSCI - Input conversion director. 
Compiled code. 



IBMBSFO - Output Conversion Director (F and E Formats ) 

Function 

To direct F-format and E-format output conversions. 
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Method 

A flowchart of the module is given in chart BSFO. 

Linkage 

Rl = A(SICCB) 



Calls 

IBMBCH - Conversion (fixed binary - float - free decimal). 
lEMBCV - Conversion (Packed decimal to E-f ormat) . 
IBMBCW - Conversion (packed decimal to F-f ormat) . 
lEMDCCS - String conversion director bootstrap. 
IBMBCM - conversion (pictured decimal to decimal). 



Called By 

Compiled code. 

lEMESCO - Output conversion director. 

IBMDSED - Edit-directed input/output. 



IBMB SPI - Input conver si on Director (P F ormat ) 

Function 

To direct P-f ormat input conversions. 

Method 

A flowchart of the module is given in chart BSPI. 

Linkage 

Rl = A(SICCB) 

Calls 

IBMBCM - Conversion (pictured deciiral to packed decimal) 

lEMECGP - Check input (pictured decimal). 

IBMBCGZ - Set a subfield of a complex number to zero. 

IBMBCCC - Assign (character string). 

IBMBCCQ - Conversion (character to pictured character) . 

Called By 

Compiled code. 

IBMBSCI - Input conversion director. 
IBMDSED - Edit-directed input/output. 
lEMDSEE - Edit-directed combination module. 
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IBMBSPO ~ Output Conversion Director (P Format) 

Function 

To direct P-format output conversions. 

Method 

A flowchart cf the module is given in chart BSPO. 

Linkage 

Rl = A(SIOCB) 

Calls 

lEMBCH - Conversion (fixed binary - float - free decimal). 

IBMBCK - Conversion (fixed decimal - free decimal - fixed decimal) 

lEMECM - Conversion (pictured decimal to packed decimal). 

IBMBCO - Conversion (packed decimal to pictured decimal). 

lEMBCP - Conversion (bit to fixed binary or float). 

IBMBCAC - Conversion director (arithmetic tc character) . 

lEMDCCS - String conversion director bootstrap. 

Called By 

Compiled code. 

IBMBSCC - Output conversion director. 

lEMDSED - Edit-directed input/output. 

IBMDSEH - Edit-directed combination subset module. 



FORMAT AND OPTION MODULES 
IBMDSCP - COPY 

Function 

To direct the writing of a field specified by a COPY option in a GET 
FILE statement onto the specified file. 

Method 

A flowchart cf the module is given in chart DSCP. 

Linkage 

Rl = A(PCB of input file) 

Calls 

IBMDSIO - PUT FILE initialization. 
Appropriate stream output transmitter. 
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Called By 

IBMDSII - GET FILE initialization. 
lEMDOCL - Open/ Close bootstrap. 
Stream input transmitter. 



IBMDSPL - PAGE, LINE, and SKIP 

Function 

To position a STREAM file according to the PAGE, LINE, or SKIP options 
or format items, raising ENBPAGE on PRINT files if necessary. The 
module has three entry points: 

IBMBSPLA ; PAGE option or format item. 

IBMBSPLB ; LINE option or format item. 

IBMBSPIC ; SKIP option or format item. 

Method 

A flowchart of the module is given in chart DSPL. 

Error and Exceptional Conditions 

The ERROR condition is raised if a PRINT option or format item is 
specified for a non-PRINT file. 

The ENDPAGE condition is raised if the line number rises above the 
pagesize. 

The ENDFILE condition is raised if end-of-file is encountered on input. 

The ERROR condition is raised for invalid control formats on GET and POT 
STRING statements . 

Linkage 

Rl = A(SICCB) 

Calls 

Relevant stream I/O transmitter. 

Called By 

Compiled code. 

IBMDSIO - PUT FILE initialization. 

IBMDSII - GET FILE initialization. 

IBMDSIL - GET FILE and PUT FILE initialization. 
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IBMDSXC - X and COLUMN Format Items 



Function 



To position a stream file according to specified X and COLOMK format 
items and, on output, to fill the intervening positions with blanks. 
The module has four entry points: 

IBMBSXCA ; X format item in GET statement. 

IBMBSXCB; X format item in PUT statement. 

IBMBSXCC ; COLUMN format item in GET statement. 

IBMBSXCD: COLUMN format item in PUT statement. 

Method 

A flowchart of the module is given in chart DSXC. 

Error and Exceptional Conditions 

The ENDFILE condition is raised if end-of-file is encountered at a 
legitimate point in the input. 

The ERROR condition is raised: 

1. For end-of-file occurring in the middle of an X- format field. 

2. For a GET or PUT STRING that exceeds the string size. 

3. For an invalid control format on a GET or PUT STRING statement. 

Linkage 

Rl = A(SIOCB) 

Calls 

Appropriate stream I/O transmitter. 
IBMDSIS - GET or PUT String initialization. 

Called by 
Compiled code. 

TRANSMITTER MODULES 

IBMDSTF - PRINT F-format Transmitter 

Function 

To write one F-format record from an output buffer onto a data set 
accessed by a STREAM PRINT file. The module has two entry points: 
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IBMDSTFA ; Normal output, 

lEMDSTFB ; Output of error messages when transmitter is being used for 
SYSPRINT . 

Method 

A flowchart of the module is given in chart DSTF. 

Error and Exceptional Conditions 

The TRANSMIT condition or the uncorrectable error in output error (error 
message IBM144I) may be raised by this module. The ENDPAGE condition is 
raised if the line number rises above the pagesize. 

Linkage 

Entry Point IBMDSTFA: 

Rl = A (file control block) 

Entry Point lEMDSTFB: 

Kl = A (string locator for message) 
R2 = A (request control flag byte) 

Calls 

IBMDERR - Error handler. 

Called By 

lEMDSCP - Copy module. 

IBMDSDO - Data-directed output, 

IBMDSEO - Edit-directed output. 

IBMDSED - Edit-^directed input/output. 

IBMDSLC - List-directed output. 

IBMDSPL - PAGE, LINE, and SKIP formats and options. 

IBMDSXC - X and COLUMN formats. 

IBMDESN - Error message module. 

IBMDPEP - Housekeeping diagnostic message module. 

IfiMDPES - Storage management diagnostic message module. 

IBMDSEE - Edit-directed combination module. 

IBMDSEH - Edit-directed combination subset module. 



IBMDSTI - INPDT Transmitter 

Function 

To read one record from a data set accessed by a STREAM INPUT file into 
an input buffer. 

Method 

A flowchart of the module is given in chart DSTI. 
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Error and Exceptional Conditions 

The TRANSMIT condition or the ENDFILE condition may be raised by this 
nodule. 



Linkage 

Rl = A (file control block) 



Calls 

lEMDERR 
IBMDSCF 



Error Handler. 
COPY module. 



Called By 

IBMDSDC - 
IBMDSED - 
IBMDSEC - 
lEMDSLO - 
IBMDSPL - 
IBMDSXC - 



Data-directed output. 

Edit-directed input/output. 

Edit-directed output. 

List-directed output. 

PAGE, LINE, and SKIP formats and options. 

X and COLUMN formats. 
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CHAPTER 6: CONVERSION ROUTINES 



The conversion package of the resident library handles two basic types 
of conversion: external and internal. External conversions are the 
conversions to and from character format that are necessary in STREAM 
I/O. Internal conversions are conversions that arise in assignments, in 
the evaluation of expressions involving mixed data types, and in similar 
situations . 

The conversion modules described in this chapter enable any valid 
conversion to be made between data types. Each conversion can be made 
by means of a single call to the library. 

Each conversion is handled by a unique conversion path which passes 
through one, two, or three conversion modules and which may involve 
conversion to various intermediate data types. For example, the 
conversion from "float" to "fixed pictured decimal" involves a 
conversion from "float" to "fixed decimal" followed by a conversion from 
"fixed decimal" to "fixed pictured decimal." 

Each conversion path is entered by means of a unique entry point in the 
conversion package. Because a conversion path may include up to three 
modules, it follows that some entry points in the conversion package are 
sometimes called as the first module in a conversion path and sometimes 
as the second or the third. If a module is called as the second or 
third module in a given conversion path, it is not required to store 
registers or to acquire workspace. Each module, therefore, determines 
whether or not it is the first in the path by testing a bit in the 
current DBA. If this bit is not set, indicating that the module is the 
first in the path, the module stores registers, acquires workspace, and 
sets the appropriate bit on for examination by the next module. 

Each entry point in the conversion package is passed source and target 
parameters. If the conversion path contains more than one module, the 
source parameters are required only by the first module and the target 
parameters are required only by the last. Parameters must therefore be 
created for the intermediate forms through which the conversion passes. 
The modules handle the parameters in the following way: 

First module ; On entry, save the target parameters and create temporary 
target parameters for the intermediate form. On exit, make the current 
target parameters into source parameters for the next module. 

Intermediate m odule; On entry, create temporary target parameters for 
the next intermediate form. On exit, make the current target parameters 
into source parameters for the next module. 

Each module also passes the final target parameters to the next module 
in the conversion path. 



78 Licensed Material - Property of IBM 



INTERNAL CONVERSIONS 

Internal conversions may be subdivided into two types: arithmetic and 
string. 

Conversions from arithmetic to arithmetic and from string to string are 
made by means of a direct entry to the appropriate entry point of the 
conversion package. Direct entry points are also provided for 
conversions from bit string to arithmetic and vice versa. 

conversions between arithmetic and character string data types are 
handled by two conversion director modules: lEMBCAC (arithmetic to 
character) and IBMBCCA (character to arithmetic). These modules examine 
the attributes of the source and target data types and, if the 
conversion is valid, select the appropriate conversion package entry 
point for the conversion. 

The conversion paths for conversions between internal data types are 
illustrated in figures 6.1 through 6.8. For any particular conversion, 
these figures show the conversion path taken through the conversion 
package and also whether or not a conversion director module is 
involved. The figures do not show the multiple calls that may occur in 
the conversion of complex data types (these are discussed below) , nor do 
they show the return of control to the conversion directors when these 
are involved in the conversion. 

Note: "Free decimal", which occurs in these figures, is an intermediate 
data format used during conversion. It comprises a 17-digit packed 
decimal mantissa and a fullwcrd binary exponent. 

Conversions between complex arithmetic types are made by means of two 
calls to the library. Conversions from complex arithmetic data types to 
character string are controlled by the arithmetic to character 
conversion director lEWBCAC, which makes two calls to the conversion 
package, one to convert the real part and one to convert the complex 
part. The insertion of special characters (e.g. "I") is done by the 
conversion director. 

In conversions from character to arithmetic, several possibilities 
arise, depending on the modes of the source and the target. The 
following actions are taken by the conversion director: 

Real to Real: Convert to the target. 

Real to complex: Convert to the real part of the target and set 

the imaginary part to zero. 

complex to real: Convert the real part of the source to the 

target. 

complex to complex: Convert both parts. 

Imag. to real: Set the target to zero. 

Imag. to complex: Set the real part of the target to zero and 

convert the source to the imaginary part. 

The conversions listed above are made by calls from the conversion 
director to the conversion package. A special module, IBMBCGZ, is 
provided for addressing the imaginary part of a complex number, or for 
setting one of its subfields to zero. 
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EXTERNAL CONVERSIONS 

External conversions are conversions between internal data types and the 
following external formats: A- format, B-format, C-format, E-format, F- 
format, arithmetic-F format, and character-P format. In general these 
conversions are controlled by external conversion director modules, 
although in some instances sufficient is known about the required 
conversion at compile time to enable the conversion package to be called 
directly by compiled code. The external conversion directors, being 
concerned with STREAM I/O, have a fifth letter "S* in their control 
names; they are therefore described in chapter 5: STREAM I/O. 

The external conversion directors make full use of the facilities of the 
conversion package, sometimes calling conversion entry points directly, 
and sometimes calling the internal conversion directors to assist in the 
conversion. 
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****B1********* 

* « 
» FIXED BINARY « 

* 4 

*************** 



•****ga ********** 

♦I3MBCYXX ♦ 

*-*.*-*-*-*_*-*.* 

->*FIXED BINARY TO*- 

* FIXED BINARY * 

* * 
***************** 



****C1********* 

* * 

* FIXED DECIMAL *- 

* * 
*************** 



*****CIt ********** 
♦IBW3CEDX * 
*-*-*-*-•-*-*_*-* 
->♦ FIXED DECIMAL *- 
*T0 FIXED BINARY* 
* * 

***************** 



****D1********* 
» « 

► FLOAT « 

• 4 

*************** 



*****0(|*** ******* 

*IBM3CEFX * 

*-•-*-*-*-•-*_*-* 

->*FLOAT TO FIXED *- 

* BINARY * 

* * 
****•****•*•**•** 



*****E3 •(*••••*•* 

*1BMBC0IX * 

*_•-*_•-*-*-*_•-• 

->* BINARY CONSTANT* 

• TO FLOAT ♦ 

* * 
••*•******•****•* 



•***fX* ******** 

> 4 

► CHARACTER * 
t « 

****•**•••***** 



THIS PATH IF 
SOURCE IS A 
BINARY 
CONSTANT 

•****F2*^******** 
•IBMBCCAA * 

>* CONVERSION * 

• DIRECTOR • 

* • 
••••••**•*••*•*** 



THIS PATH IF 
SOURCE IS A 
DECIMAL 
CONSTANT 






***••(; 3 •••••*«••• 

*IBMBCTHX * 
•-*.•-•-•-*.*-*-• 
DECIMAL *- 
CONSTANT TO 
■REE DECIMi" 
•*•*••***•••« 



****H1********* 
» PICTURED * 
► DECIMAL < 

» 4 

••*••*••*•*•*** 



****J1 ********* 

k 4 

► BIT * 

» 4 

*•***••••••*•** 



.*-•-•_*. 



>♦ PICTURED ♦- 

* DECIMAL TO FREE* 

• DECIMAL • 



• ****HI| •••**•***• 
*IBMBCEZX * 

•-*—*—*-•.*-•_*-* 

->*FREE DECIMAL TO* > 

♦ FIXED BINARY ♦ 

* * 
**•*••*•••**•**** 



*****jll ••*•••**** 
*IBMBCPBX * 
•-•-*-*.*-•-*-*-* 
->♦ BIT TO FIXED * 

• BINARY • 

* * 
•**••••****••**** 



****E5********* 

* 4 

->* FIXED BINARY < 

* ( 

*************** 



Figure 6.1: Conversion Paths; fixed binary target 
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****B1********* 

* * 

♦ FIXED DECIMAL *- 
*************** 



->» FIXED DECIMAL *- 
» TO FIXED * 
* DECIMAL * 
***************** 



****C1 ♦*••***** 

* < 

* FIXED BINARY < 

* 4 

*************** 



*****Ql ********** 

♦IBMBCHXD » 

*_*-*-*_*-*-*_*_* 

->»FIXED BINARY TO* 

* FREE DECIMAL * 

* • 
***************** 



****D1********* 
I « 

► FLOAT * 

> 4 

*************** 



•_*-*_*_*_*_*. 



***************** 



•****g3 •**•***••* 

♦IBMBCUID • 

*_*_*_•-*_*-*_•-* 

->* BINARY CONSTANT* 

* TO FLOAT * 

* * 
***************** 



****E5********* 

* * 
, >* FIXED DECIMAL * 

* * 
*************** 



THIS PATH IF 
SOURCE IS A 
BINARY 
CONSTANT 



****F1 ********* 

* * 

* CHARACTER *- 

* * 
*************** 



*****P2********** 
*IBMBCCAA * 
*.*-*-*-*-*-•_*_* 
>• CONVERSION * 

* DIRECTOR ♦ 

* * 
*•***•*••*•****** 



THIS PATH IF 
SOURCE IS A 
DECIMAL 
CONSTANT 






*****C3 ********** 
*IBMBCTHD ♦ 
*-*-*-*-*-*-*-*-* 
DECIMAL ♦ 
CONSTANT TO * 
* FREE DECIMAL * 
••*•*•••***•••*** 



****H1********* 

* PICTURED * 

* DECIMAL *- 

* * 
**•**•**•***••* 



•**«*g2 ***•***••• 
*IBMBCMPD * 
•-•-*-*-•_*-•-•-• 
>* PICTURED •- 
•DECIMAL TO FREE* 
• DECIMAL • 
***•***•***••**•* 



•••**g3 •****•••** 

*IBMBCKZD * 

*-•-*-*-•-•-*_•-* 

->*FREE DECIMAL TO*- 

* FIXED DECIMAL * 

* * 
******•***••••*** 



****J1********* 

> « 

> BIT « 

> 4 

**•*••*•••*•••• 



*****J2 •••*••*•*• 
*IBMBCPBD * 

->• BIT TO FLOAT * 

* BINARY * 

• • 
••••••••••••••••• 



*«***J3 •»•••••••• 

•IBNBCHFD * 

>*FIiOAT BINARY TO* 

* DECIMAL * 



Figure 6.2: Conversion Paths; fixed decimal target 
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• < 

• FIXED BINARY » 

• « 



***************** 



»»»*C1 ••»»•*♦•* 

* 4 

* FIXED DECIMAL * 

* 4 



t****cii*** ******* 

♦IBM3CEDF < 

»_♦_♦_*_*_♦_»_»_ 4 

->* FIXED DECIMAL < 

• TO FLOAT « 

* 4 
***************** 



•***D1********* 

> < 

► FLOAT * 

» 4 



*-•_•-*-*-*_•_*-* 



♦FLOAT TO FLOAT ♦ 

* * 



♦IBM3CUIP * 

->»BlNARlf CONSTANT* 

* TO FLOAT ♦ 

* * 



****E5********* 

• < 
» FLOAT « 

* I 

*************** 



THIS PATH IF 
SOURCE IS A 
BINARY 
CONSTANT 



****P1********* 

> « 
• CHARACTER » 

> « 
*************** 



*****P2 ********** 
♦IBMBCCAA * 
•-*-*-*-*-*_*_*-• 
>» CONVERSION ♦ 

♦ DIRECTOR • 

* • 
***•**•*•**•*•*•* 



THIS PATH IF 
SOURCE IS A 
DECIMAL 
CONSTANT 



• **••<; 3********** 
♦IBMBCTHF » 
•-•_•-•-*_*.*-•-* 

>* DECIMAL *- 

♦ CONSTANT TO • 
» FREE DECIMAL * 
•*••***••**••**•* 



****H1********* 
» PICTURED < 
► DECIMAL » 
• « 

*************** 



*-*-*-*-*-•-•-•-* 
->♦ PICTURED » 
♦DECIMAL TO FREE* 
♦ DECIMAL ♦ 
***************** 



♦ ♦♦♦♦HI) ♦*♦**♦♦♦♦♦ 
♦IBKBCEZF • 
*-•—*—•-*-*-*_*-* 

>*FREE DECIMAL •»♦ > 

♦ FLOAT * 

♦ * 
***************** 



****J1********* 
» « 

► BIT » 



* ****JI|** ******** 
*IBMBCPBF * 
*.*-*-*-*-*-*-*-* 

>* *- 

* BIT TO FLOAT * 

* * 
***************** 



Figure 6.3: Conversion Paths; float target 



Licensed Material - 
Property of IBM 



Chapter 6: Conversion Routines 



83 



* * 

* FIXED DECIMAL ♦- 

* * 

*************** 



*****B3********** 
♦IBM3CKDP » 
*-*-•-*-*-*-*-*_* 
->* FIXED DECIMAL *- 
♦ TO FIXED * 
» DECIMAL * 
***************** 



*»**C1*** ****** 

* 4 

* FIXED BINARY * 

* 4 

*************** 



*****C3********** 
♦IBMBCHXP * 
*_*-*-*-*-*-*-*_* 
->*PIXED BINARY TO*- 
» FREE DECIMAL * 
* • 

***************** 



****D1********* 
» « 

* FLOAT » 
» « 

*************** 



..** I 

• ****[)3********** 
♦IBMBCHFP * 
*-*-*.*-*-*_*-*_* 

->* FLOAT TO FREE *- 
» DECIMAL * 

* * 
***************** 



•-*-*-*-*-*-*-*_* 

— >* FIXED DECIMAL * 

» TO FIXED PIC. ♦ 

* DECIMAL * 



THIS PATH IF 
SOURCE IS A 
BINARY 
CONSTANT 



*****E 3* ********* 

♦IBMBCOIP • 
*_*_•-*—*-*-*-*-* 
->♦ BINARY CONSTANT* 
* TO FLOAT * 
» * 

***************** 



•***E5********* 
♦FIXED PICTURED • 

♦ DECIMAL * 

* * 
*************** 



****P1********* 
» « 

► CHARACTER • 
» « 

*************** 



*****P2 ********** 
♦IBMBCCAA ♦ 
*.*_*_*_*-*-*-*_* 
>* CONVERSION * 

* DIRECTOR * 

* * 
***************** 



THIS PATH IF 
SOURCE IS A 
DECIMAL 
CONSTANT 



•****Q 3** ******** 

♦IBMBCTHP * 

*-*-•-•_*-*-*-*_* 

>* DECIMAL *- 

♦ CONSTANT TO * 

* FREE DECIMAL * 
•****•******•**•* 



*-*-*-*-*_•-*-*-• 



***************** 



****H1********* 

► PICTURED * 

> DECIMAL * 
* t 

********««****« 



• ***•(] 3 ********** 
*IBMBCMPP * 

• -*.*-•-*-*-*-*-* 
>» PICTURED *- 

*DBCIMAL TO FREE* 

• DECIMAL * 
***************** 



****J1********* 
► BIT « 



*.*-*-*.*-*-*.*-* 
>* * 

* BIT TO FLOAT • 



Figure 6,4: Conversion Paths; fixed pictured decimal target 
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•***B1»**»»»*** 

* 4 

» FIXED BINARY < 

* < 



*-*.*.*_.*_*_*_*-* 



******•***•••*••* 



V 
*****)35 ********** 

♦IBMBCOZE * 
*-*-*-*-*-*-*-*_* 
->*FREE DECIMAL T0*<- 
♦FLOAT PICTURED ♦ 
* DECIMAL * 
***************** 



****C1 ********* 

* * 
» FIXED DECIMAL *- 

* * 
*************** 



*****(; 2********** 

♦IBMBCODE * 

*-*-*-*-*-*.*-*-* 

->» FIXED DECIMAL »- 

♦ TO FLOAT PIC. * 

♦ DECIMAL ♦ 
***************** 



****C5********* 
♦FLOAT PICTURED ♦ 
->* DECIMAL * 
* * 

*************** 



****D1********* 

> • 
» FLOAT « 

> « 

*************** 



*****D2 ********** 



*-*-*-*-*-*-*-*. 



M******************« 



•****E3********** 

*IBMBCOIE * 

*.*-*-*-*-*-*-*-* 

->*BINARY CONSTANT* 

* TO FLOAT * 

* * 
***************** 



****F1********* 

» CHARACTER < 
> « 

***•*•**•***•** 



THIS PATH IF 
SOURCE IS A 
BINARY 
CONSTANT 



*****P2********** 
•IBMBCCAA » 
*—*—*—«.*—*—*-*—« 

>♦ CONVERSION * 

♦ DIRECTOR ♦ 

* * 
*•****•*••***•*** 



THIS PATH IF 
SOURCE IS A 
DECIMAL 
CONSTANT 



*****{]2********** 



****H1********* 
PICTURED * 
DECIMAL » 

* 


•IBMBCMPE • 
*-*-•-*-*_*-*-•-* 

>» PICTURED • 

♦DECIMAL TO FREE* 
♦ DECIMAL ♦ 




1 ••** 




l_>* ♦ 
* B5 * 

» • 




**** 




*****J2 *♦*****♦•* 


****J1********* 

• 


*1BMBCPBE ♦ 
•.*-*-*.•-*-*-*-• 






* 


♦ BIT TO FLOAT ♦ 

* * 








1 **** 




l_>* * 
* D2 ♦ 



•****G3********** 
♦IBMBCTHE , ♦ 
*-•-•-•-•-*-*-*-♦ 
>♦ DECIMAL * 

* CONSTANT TO ♦ 

♦ FREE DECIMAL ♦ 
*****••*••*••••** 

I**** 
->♦ ♦ 

♦ B5 ♦ 

* ♦ 
• ••* 



Figure 6*5: Conversion Paths; float pictured decimal target 
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»»»»B1»»»***»** 

* i 

* FIXED BINARY * 

* * 
*************** 



»_*_♦_»_♦_»-♦-♦- 



*♦»♦♦»»*»»»»*»**» 



***************** 



»**»C1**»»»**»* 

* * 

* FIXED DECIMAL *- 

* * 
*************** 



*-*-*-*-*-*-*-*. 



***************** 



.*_*_*_*- 



***************** 



(IBMBCCCA IS USED FOR 
ASSIGNMENT IF STRINGSIZE 
IS POSSIBLE) 



***»C5****»**** 
» * 

» CHARACTER « 
t * 

*************** 



****Q]^ ********* 
» 4 

► FLOAT * 

» 4 

*************** 



****«D2 ********** 
♦IBMBCACA « 
*_*_*_*_*_*_»_*_* 
>» CONVERSION « 

* DIRECTOR * 

* * 
***************** 



.*_*_*_*-*-*-*-* 



***************** 



*****D^ ********** 

♦IBMBCVZy * 

*-*_*_*-*-*-*-*-* 

->*FREE DECIMAL T0»- 
» E- FORMAT • 
* * 

***************** 



<OSED FOR ASSIGNMENT 
IF STRINGSIZE 
IS POSSIBLE) 



****p]^ ********* 
» « 

► CHARACTER « 
» « 

*************** 



*_•—*_*—*-*-*-*_* 



***************** 



****H1********* 

► PICTURED « 

► DECIMAL « 

» 4 

*************** 



*****H3*t******** 

♦IBMBCACA * 

*_*_»_*_*-*_*_•_* 

>* CONVERSION * 

* DIRECTOR * 

* * 
••••••**••**••*•* 



•***J1********* 
» « 

► BIT « 

**•******•***•* 



••***j 3* **••***•* 
♦IBMBCBCA * 
»_*_*_»_»_»-*-*_* 
>» BIT TO •- 

* CHARACTER * 

♦ * 
***************** 



Figure 6.6: Conversion Paths; character target 
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****B1********* 

* t 

* FIXED BINARY < 

* < 



-»_•_»_»_♦_»_ 



***•**•*••**•***« 



*_*_♦_»_♦. 



***************** 



•***C1*** ****** 

* * 

* FIXED DECIMAL ♦- 

* * 
•**•*•**•*•*•** 



*****02 ********* 
♦IBMBCACA 

• -*-*-*-*-*-*-*- 
>* CONVERSION 

♦ DIRECTOR 
* 
*•**•***••***•** 



•***E1********* 
» • 

• FLOAT • 



•****E2 ********** 
♦IBMBCACA * 
*-*-*-*-*-*-*-•-* 
>* CONVERSION •- 
♦ DIRECTOR * 



*****C3********** 

♦IBMBCWZH * 

*_*-*_•_*_*—*-*_* 

->»FREE DECIMAL TO*- 

• CHARACTER * 

* * 
***•••**•*•****** 



*****[)3 •**•**•*** 
♦IBMBCVZY * 
*_*-*_•_*-*-*-*-* 
♦FREE DECIMAL TO^- 

* E- FORMAT ♦ 

* * 
***************** 



*****E3*t******** 
♦IBMBCHFY ♦ 
*-•-*-•-*-*-*-*-* 
->♦ FLOAT TO FREE ♦ 
♦ DECIMAL ♦ 



*****CI| ********** 

♦IBMBCCQA ♦ 

*-*-*_•_*_*_*-*-* 

->♦ CHARACTER TO *- 

♦ PICTURED ♦ 

♦ CHARACTER ♦ 
***************** 



****pi********* 
» i 

> CHARACTER < 

> 4 

**•*****••*••** 



****H1********* 
► PICTURED < 
» DECIMAL * 



*****l]3 *•••*••*• 

♦IBMBCACA 
*_*_•_*_*_•_•_*_ 
>♦ CONVERSION 
♦ DIRECTOR 



****J1********* 



*****J3 ***••****• 
♦IBMBCBQA ♦ 
*-*-*-*-*-*.*.*-* 
->*BIT TO PICTURED*- 
» CHARACTER ♦ 



****(;5********* 
» PICTURED * 
► CHARACTER « 
• i 

*************** 



Figure 6.7: Conversion Paths; pictured character target 
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* « 

♦ FIXED BINARY ' 



*_•_*_*_*_•-•—•—* 



***•••********•** 



****C1 ********* 

* • 

* FIXED DECIMAL *- 

* * 
*************** 



*****C3 ********** 
*IBMBCEDB * 
*-*-*-*-*-*-*-*-* 
->* FIXED DECIMAL * 
*TO FIXED BINARY* 
* * 

***************** 



****C1* ******** 
t * 

* FLOAT * 

t • 

*****•***••**** 



*-*_*_•_•-*-*-*_* 
>* *. 

* FLOAT TO BIT * 

* * 
***************** 



****D5* ******** 
» « 

» BIT < 
> « 

*************** 



*•** i 

* * J 

♦ D3 * 



****P1* ******** 
► CHARACTER < 



*****F3 *•******•• 

*IBHBCCaA * 

•-•-•-•-*-•-*-*-* 

->* CHARACTER TO *- 

• BIT • 

* * 
***************** 



•***H1********* 
» PICTURED ' 
• DECIMAL • 



• ****|]2 ********** 
*IBMBCMPB 



.*-•—•—•—* 



>* PICTURED *- 

•DECIMAL TO FREE* 
• DECIMAL * 



••***H 3* ********* 
*IBMBCEZD * 
*.*.*. *.*.*.*.*.* 



*****j 3* ********* 
•IBMBCBBA • 
•-•-*-•-*-*-*-•-* 
>• *. 

* BIT TO BIT * 



Figure 6.8: Conversion Paths; bit target 
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MODULE DESCRIPTIONS 

IBMBCAC - Arithmetic to Character Conversion Director 

Function 

To direct arithmetic to character conversions. 

Method 

A flowchart of the module is given in chart BCAC. 

Linkage 

Rl = A (FUST) 
PLIST = A (source) 

A (source DED) 

A (target) 

A (target DED) 



Calls 

IBMBCCC 

lEMBCCQ 

IBMBC6Z 

lEMBCH 

IBMBCW 

IBMBCV 



Assign (character strings) . 

Conversion (character to pictured character). 
Set a subfield of a Complex number to zero. 
Conversion (fixed binary - float - free decimal) 
Conversion (packed decimal to F-f ormat) • 
Conversion (packed decimal to E- format ) . 



Called By 

Ccmpiled code. 

IBMBSAO - Output conversion director. 

IBMBSBO - Output conversion director. 

IBMBCCL - Conversion director - complex strings (transient) 

lEMDCCR - Conversion director - non complex strings (transient) 

IBMDSLC - List-directed output. 

lEMDSEE - Edit-directed combination module. 

IBMDSEH - Edit-directed combination subset module. 



lEMBCBB - Conversion (Bit to Bit) 



Function 

To assign a fixed or varying bit string to a fixed or varying bit string 
target. 



Error and Exceptional Conditions 
STRINGSIZE can occur in this module. 
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Linkage 

Rl = A(PLIST) 

PLIST = A (source locator descriptor) 

4-fcyte gap 

A (target locator descriptor) 



Called Ey 

Compiled code. 

IBMBCR - Conversion (fixed or float binary to bit) 

IBMBAPM - STRING psuedovariable. 



IBMBCBC - Conversion (Bit to Character) 

Function 

Tc convert a fixed or varying bit string to a fixed or varying character 
string. 

Error and Exceptional Conditions 
STRINGSIZE can occur in this module. 

Linkage 

Rl = A (PLIST) 

PLIST = A (source locator descriptor) 

4- byte gap 

A (target locator descriptor) 

Called By 

Compiled code. 

IBMBSAO - Output conversion director. 

IBMBSBO - Output conversion director. 

IBMCSLO - List-directed output. 

IBMDSEE - Edit-directed combination module. 

IBMDSEH - Edit-directed combination subset module. 



IBMBCBQ - Conversion (Bit to Pictured Charac ter ) 

Function 

To convert a fixed or varying bit string to a pictured character string. 

Error and Exceptional Conditions 

STRINGSIZE can occur in this module. The ERROR condition is raised if a 
bit matches a picture character other than X or 9. 
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Linkage 

Rl = A(PLIST) 

PLIST = A (source locator descriptor) 

4 -byte gap 

A (target locator descriptor) 

A(target DED) 



Called By 

Ccirpiled code. 

IBMBSBO - Output conversion director, 



IBMECC A - c haracter to Arithmetic conver sion Director 

Function 

To direct conversions from fixed or varying character string to any 
arithmetic data type, real or complex. 

Method 

A flowchart of the module is given in chart BCCA. 

Error and Exceptional Conditions 
CONVERSION can occur in this module. 

Linkage 

Rl = A (PLIST) 

PLIST = A(source locator descriptor) 

A (source DED) 

A (target) 

A (target DED) 

Calls 

IBMBCT - Conversion (decimal constant to free decimal), 
lEMBCD - conversion (tinary constant to float). 
IBMDSCV - Conversion fix-up bootstrap. 
IBMBCGZ - Set a subfield of a Complex number to zero. 

called By 

Ccropiled code. 

IBMBSAI - Input conversion director. 

lEMBSFO - Output conversion director. 

IBMBSPO - Output conversion director. 

IBMDSLI - List-directed input. 

IBMDSEE - Edit-directed combination module. 
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IBMBCCB - Conversion (Character to Bit) 

Function 

To convert a fixed or varying character string to a fixed or varying bit 
string. 

Error and Exceptional Conditions 

CONVERSION and STRINGS I ZE can occur in this module. 

Linkage 

Rl = A(PLIST) 

PLIST = A (source locator descriptor) 

U-byte gap 

A (target locator descriptor) 

Calls 

IBMDSCV - Conversion fix-up bootstrap. 

Called By 

Compiled code. 

IBMBSAI - Input conversion director. 

IBMDSLI - List-directed input. 

IBMDSEE - Edit-directed combination module. 



IBMBCCC - HIGH, LOW, Assign (Character Strings ) 

Function 

Tc assign a character string to a target and to implement the built-in 
functions HIGH and LOW. The module has three entry points: 

lEMBCCCA ; Assign a fixed or varying character string to a fixed or 
varying target. 

lEMBCCCE : Form the character string HIGH (length) in a target field. 

lEMECCCC t Form the character string LOW (length) in a target field. 

Error and Exceptional Conditions 
STRINGSIZE can occur in this module. 

Linkage 

Rl = A (PLIST) 

PLIST = A (source locator descriptor) 
or A (length) 

4- byte gap 

A (target locator descriptor) 
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Called By 

Ccropiled code. 

IBMBSAI - Input conversion director. 

IBMBSPI - Input conversion director. 

lEMBSAO - Output conversion director. 

IBMBSPO - Output conversion director. 

IBMBCAC - Conversion director (arithmetic to character) 

IBMDSEE - Edit-directed combination module. 

IBMDSEH - Edit-directed combination subset module. 
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IBMDCCS - Str ing Conve rsion Dir ector Bootstr ap 



Function 

To load and link to the transient string conversion director module 
IBMBCCL or IBMDCCR. 



Method 

The address of the transient conversion irodule is held in field TCCL in 
the TCA appendage. If the module has not been loaded, this field 
contains zero. 

Module IBMDCCS tests field TCCL. If this field is zero, the module 
tests the VCON for the module IBMBCGZ (Set a subfield of a Complex 
number to zero). If this VCON is resolved, IBMDCCS obtains the 
necessary storage and loads the complex string conversion director 
IBMBCCL, by means of a LOAD macro. If the VCON is not resolved, IBMDCCS 
obtains storage and loads IBMDCCR, the non-complex string conversion 
director. The address of the director loaded is placed in TCCL. 

The module then restores register Rl, so that it addresses the parameter 
list passed by the caller, and points register R4 to the list of 
conversion package entry points contained in IBMDCCS. It then branches 
and links to the transient module. 

On return from the transient module, control is returned to the caller. 



Linkage 

Input : 

Rl 
PLIST 



A(PLIST) 

A (source or source locator) 

A (source DED) 

A (target or target locator) 

A (target DED) 



Output to IBMBCCL or IBMDCCR: 

Rl = A(FLIST) (as above) 

RU = A (list of conversion package entry points) 



Called By 

Compiled 
IBMDSLI - 
IBMBSFI - 
IBMDSLJ - 
IBMBSFO " 
IBMBSPO ■ 
lEMBSCI ' 
IBMBSCO - 
lEMDSEE - 
IBMDSEH ' 



code. 

• List-directed input. 

• Input conversion director. 

• List-directed input (restricted conversions) 
■ Output conversion director. 

• Output conversion director. 

• Input conversion director. 

• Output conversion director. 

• Edit-directed combination module. 

• Edit-directed combination subset module. 



94 



Licensed Material - Property of IBM 



IBMBCCQ - Conversion (Character to Pictured Character ) 

Function 

To convert a fixed or varying character string to a pictured character 
string. The incdule has two entry points: 

IBMBCCQ A; Conversion, character to pictured character. 

IB M BCC g B ; As above, but accepts double quotes as a single quote. 

Error and Exceptional Conditions 

CONVERSION and STRINGSIZE can occur in this module. 

Linkage 

Rl = A(PLIST) 

PLIST = A (source locator descriptor) 

4-byte gap 

A (target locator descriptor) 

A (target DED) 

Calls 

lEMDSCV - Conversion fix-up bootstrap. 

Called By 

Ccirpiled code. 

IBMBSAI - Input conversion director. 

lEMBSPI - Input conversion director. 

IBMBSBO - Output conversion director. 

lEMECCL - Conversion director - complex strings (transient). 

IBMDCCR - Conversion director - non complex strings (transient). 

lEMDSLI - List-directed input (Entry point IBMBCCQB only) . 

IBMDSLJ - List-directed input (restricted conversions). 

IBMDSEE - Edit-directed combination module. 



IBMBCE - Conversion (Fixed Decimal - Free Decimal - Float - Fixed Binary) 

Function 

To perform conversions on the route: fixed decimal free decimal - float 
- fixed binary. The module has seven entry points: 

IBMECEDB : Fixed decimal to bit. This module converts to fixed binary and 
then branches to entry point IBMBCRXB. 

IBMBCEDF : Fixed decimal to float. 

IBMBCEDX : Fixed decimal to fixed binary. 

IBMBCEFX: Float to fixed binary. 

IBMBCE ZB : Free decimal to bit. This module converts to float and then 
branches to entry point IBMBCRFB. 

IBMBCEZF ; Free decimal to float. 
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IBMBCEZX : Free decimal to fixed binary. 

Error and Exceptional Conditions 

SIZE can occur in this module. 

Linkage 

Rl = A(PLIST) 

PLIST = A (source) 

A (source DED) 

A (target) 

A (target DED) 



Calls 

IBMBCR - Conversion (fixed or float binary to bit) 

lEMECGT - Table of powers of ten. 



Called By 

Compiled code 

IBMBCM - conversion (pictured decimal to packed decimal). 
lEMBCT - Conversion (decimal constant to packed decimal). 
IBMBCU - Conversion (binary constant to float) • 
IBMBCAC - Conversion director (character to arithmetic). 
IBMBCCL - Conversion director - complex strings (transient). 
IBMDCCR - Conversion director - non complex strings (transient). 
IBMBSBO - Output conversion director. 
IBMBSPO - Output conversion director. 



IBMB CGP - Check Input (Pictured Decimal) 

Function 

To check the validity of pictured decimal input. 

Error and Exceptional Conditions 

CONVERSION can occur in this module. 

Linkage 

Rl = A (PLIST) 
PLIST = A (source) 

A (source DED) 

Calls 

lEMDSCV - Conversion fix-up bootstrap. 

Called By 

Ccmpiled code. 

IBMBSPI - Input conversion director. 

IBMBCCL - Conversion director - complex strings (transient). 

IBMDCCR - Conversion director - non complex strings (transient) 
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IBMBCGC - Check Input (Pictured Character) 

Function 

Tc check the validity of pictured character input. 

Error and Exceptional conditions 
CONVERSION can occur in this module. 

Linkage 

Rl = A(PLIST) 

PLIST = A (source locator descriptor) 
A (source DED) 

Calls 

IBMDSCV - Conversion fix-up bootstrap. 

Called Ey 

Compiled code. 

lEMBSAl - Input conversion director. 

IBMBCGT - Table of Powers of Ten 



Function 

The module consists of a table of powers of ten for use by the 
conversion modules. It does not contain any executable code. 



Called Ey 

IBMBCE - Conversion (fixed decimal - free decimal - float 

- fixed binary) . 
IBMBCH - Conversion (fixed binary - float - free decimal). 



lEMBCGZ - Set a Subf ie ld of a Complex Number to Zero 

Function 

To set to zero the real or the imaginary part of a complex number, and 
to return the address of the imaginary part. 

Method 

A flowchart of the module is given in chart BCGZ. 

Linkage 

Rl = A (PLIST) 
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PLIST = A (target) 

A (target DED) 

A (imaginary part) 

A (request code) 

Request codes: 'Ol* Zero the real part of the number and return the 

address of the imaginary part. 

•10' Zero the imaginary part of the number. 

•00* Return the address of the imaginary part of the 
number. 



Calls 

IBMBCO - conversion (packed decimal to pictured decimal). 

lEMBCK - conversion (fixed decimal - free decimal - fixed decimal). 



Called By 

Compiled Code. 

IBMBSFI - Input conversion director. 

lEMBCCL - Conversion director - complex strings (transient) 

IBMBSPI - Input conversion director. 

lEMBCAC - Conversion director (arithmetic to character). 

IBMBCCA - Conversion director (character to arithmetic) • 

IBMBSCI - Input conversion director. 

IBMBSCO - Output conversion director. 



lEMBCH - C onvers ion (F ixed Binary - Float - Free Decimal ) 

Function 

To perform conversions on the route: fixed binary - float - free 
decimal. The module has 11 entry points: 

IBMBCHFD ; Float to fixed decimal. This module converts to free decimal 
and then branches to entry point IBMBKZD. 

lEMBCHF^: Float to float pictured decimal. This module converts to free 
decimal and then branches to entry point IBMBCCZE. 

IBMBCHFH ; Float to F-format. This module converts to free decimal and 
then branches to entry point lEMECWZH. 

lEMBCHFP ; Float to fixed pictured decimal. This module converts to free 
decimal and then branches to entry point IBMBCKZP. 

IBMBCHFY: Float to E-format. This module converts to free decimal and 
then branches to entry point IBMECVZY. 

IBMBCHXD : Fixed binary to fixed decimal. This module converts to free 
decimal and then branches to entry point IBMBCVZY. 

IBMBCHXE: Fixed binary to float pictured decimal. This module converts 
to free decimal and then branches to entry point lEMBCOZE. 

IBMBCHXF: Fixed binary to float. 
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lEMBCHXH; Fixed binary to F-forinat. This module converts to fixed 
decimal and then tranches to entry point IBMBCWZH. 

lEM ECH XP: Fixed binary to fixed pictured decimal. This module converts 
to free decimal and then branches to entry point IBMBCKZP. 

IBMBCHO; Fixed binary to E-format. This module converts to free 
decimal and then tranches to entry point IBMBCVZY. 



Error and Exceptional conditions 
SIZE can occur in this module. 



Linkage 

Rl 
PLIST = 



A(PLIST) 

A(scurce) 

A (source DED) 

A(target) 

A (target DED) 



Calls 

IB^5BCV 
lEMBCO 
IBMBCW 
lEMECK 



- Conversion (packed decimal to E-format) , 

- Conversion (packed decimal to pictured decimal). 

- Conversion (packed decimal to F-f ormat) . 

- Conversion (fixed decimal - free decimal - fixed decimal) 



Called By 

Compiled 
IBMBCP " 
IBMBCU ■ 
IBMBCAC " 
lEMECCL - 
IBMDCCR - 
lEMBSFO ■ 
IBMBSPC • 
lEMDSEE • 
IBMDSEH • 



code. 

• Conversion (bit to fixed or float binary) . 
Conversion (binary constant to float). 

• Conversion director (arithmetic tc character) . 

■ Conversion director - complex strings (transient) 

• Conversion director - non complex strings (transient) 

• Output conversion director. 

• Output conversion director. 

■ Edit-directed combination module. 

• Edit-directed combination subset module. 



IBMBCK ~ Conversi o n (Fixed Decimal ~ Free Decimal - Fixed Dec imal ) 

Function 

To perform conversions on the route: fixed decimal - free decimal - 
fixed decimal. The module has four entry points; 

lEMBCKDD ; Fixed decimal to fixed decimal. 

lEMBCKDP I Fixed decimal to fixed pictured decimal. This module converts 
to fixed decimal and then branches to entry point IBMBCODP. 

IBMBCKZD: Free decimal to fixed decimal. 
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IBMBCKZP ; Free decimal to fixed pictured decimal. This module converts 
tc fixed decimal and then tranches to entry point IBMBCODP. 

Error and Exceptional Conditions 
SIZE can occur in this module. 

Linkage 

Rl = A(PLIST) 
PLIST = A (source) 

A (source DED) 

A (target) 

A (target DED) 

Calls 

IBMBCO - Conversion (packed decimal tc pictured decimal). 

Called By 

Compiled code. 

IBMBCH - Conversion (fixed binary - float - free decimal). 
IB^5BCT - Conversion (decimal constant to packed decimal) . 
lEMECM - Conversion (pictured decimal to packed decimal). 
IBMBCCL - Conversion director - complex strings (transient) 
lEMDCCR - Conversion director - non complex strings (transient). 
IBMBSPC - Output conversion director. 



IBMBCM " Conve rsion (Pictur ed Decimal to Packed Decimal ) 
to Packed Decimal) 

Function 

To convert from pictured decimal to free or fixed decimal. The module 
has six entry points: 

IBMBCMPB ; Pictured decimal to bit. This module converts to free decimal 
and then branches to entry point IBMBCEZB. 

lEMECMPD : Pictured decimal to fixed decimal. This module converts to 
free decimal and then branches to entry point IBMBCKZD. 

IBMBCMPE : Pictured decimal to float pictured decimal. This module 
converts to free decimal and then branches to entry point IBMBCOZE. 

lEMBCMPF : Pictured decimal to float. This module converts to free 
decimal and then branches to entry point IBMBCEZF. 

IBMB CMPP; Pictured decimal to float pictured decimal. This module 
converts to fixed decimal and then branches to entry point IBMBCKZP. 

IBMBCMPX ; Pictured decimal to fixed binary. This module converts to 
free decimal and then branches to IBMBCEZX. 
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Error and Exceptional Conditions 
SIZE can occur in this module. 

Linkage 

Rl = A(FLIST) 
PLIST = A(source) 

A (source DED) 

A (target) 

A (target DED) 

Calls 

IBMBCE - Conversion (fixed decimal - free decimal - float 

- fixed binary) • 
IBMBCH - Conversion (fixed binary - float - free decimal), 
lEMBCK - Conversion (fixed decimal - free decimal - fixed decimal). 
IBMBCC ~ Conversion (packed decimal to pictured decimal). 

Called By 

Compiled code. 

lEMECCL - Conversion director - complex strings (transient). 

IBMDCCR - Conversion director - non complex strings (transient), 

IBMBSPI - Input conversion director. 

IBMBSBC - Output conversion director. 

lEMBSPO - Output conversion director. 

IBMBSFO - Output conversion director. 

lEMDSEE - Edit-directed combination module. 

IBMDSEH - Edit-directed combination subset module. 



lEMBCO - Conversion (P ack ed Decimal to Pictured De cimal) 

Function 

To convert from fixed or free decimal to pictured decimal. The module 
has three entry points: 

lEMECODE: Fixed decimal to float pictured decimal. 

lEMBCODP ; Fixed decimal to fixed pictured decimal. 

IBMBCOZE : Free decimal to float pictured decimal. 

Error and Exceptional Conditions 
SIZE can occur in this module. 

Linkage 

Rl = A (PLIST) 
PLIST = A(source) 

A (source DED) 

A (target) 

A (target DED) 
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Called By 

Compiled 
lEMBCH • 
IBMBCK • 
lEMECM " 
IBMBCT ■ 
lEMECGZ • 
IBMBCCL ■ 
lEMDCCR ■ 
IBMBSPC ■ 



code. 

■ Conversion (fixed binary - float - free decimal). 

• Conversion (fixed decimal - free decimal - fixed decimal) 

• Conversion (pictured decimal to packed decimal). 

• Conversion (decimal constant to packed decimal). 

■ Set a subfield of a complex number to zero. 

■ Conversion director - complex strings (transient). 

• Conversion director - non complex strings (transient). 

■ Output conversion director. 



lEMBCP - C onver sion (Bit to Fixe d Binar y or Float ) 



Function 

To convert from bit to fixed binary or to float. The module has five 
entry points : 

IBMBCPBD; Bit to fixed decimal. This module converts to float binary 
and then branches to entry point IBMBCHFD. 

IBMECPBE ; Bit to float pictured decimal. This module converts to float 
and then branches to entry point IBMBCHFE. 

IBMBCPBF; Bit to float. 

IBMBCPBF; Bit to fixed pictured decimal. This module converts to float 
binary and then branches to entry point IBMECHFP. 

IBMBCPBX; Bit to binary. 



Error and Exceptional Conditions 
SIZE can occur in this module. 

Linkage 

Rl = A(PLIST) 

PLIST = A (source locator descriptor) 

A (source DED) 

A(target) 

A (target DED) 

Calls 

IBMBCH - Conversion (fixed binary - float - free decimal). 

Called By 

Compiled code. 

IBMESAI - Input conversion director. 

IBMBSPO - Output conversion director. 

IBMBSFO - output conversion director. 

IBMBCCI - Conversion director - complex strings (transient). 

lEMDCCR - Conversion director - non complex strings (transient) 

IBMDSLI - List-directed input. 
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IBMBCR * C onversion (Fixed Binary or Float to Bit ) 

Function 

To convert fixed binary or float to bit. The niodule has two entry 
points : 

IBMBCRFB: Float to bit. 

IBMBCR^JB: Fixed binary to bit. 

Linkage 

Rl = A(PLIST) 
PLIST = A (source) 

A (source DED) 

A (target locator descriptor) 

A (target DED) 

Calls 

lEMBCBB - Conversion (bit to bit). 

Called By 

Ccirpiled code 

IB^5BCE - Conversion (fixed decimal - free decimal - float 

- fixed binary). 
IBMBCCL - Conversion director - complex strings (transient). 
lEMDCCR - Conversion director - non complex strings (transient). 
IBMBSBG - Output conversion director. 



lEMBCT - Conversion (Decimal Constant to Packed Decimal) 



Function 

To convert from a decimal constant to fixed or free decimal. The module 
has seven entry points : 

IBMBCTHD ; Decimal constant to fixed decimal. This module converts to 
free decimal and then branches to entry point IBMECKZD. 

lEMBCTHJE: Decimal constant to float pictured decimal. This module 
converts to free decimal and then branches to entry point IBMBCOZE. 

IBMBCTHF; Decimal constant to float. This module converts to free 
decimal and then branches to entry point lEMBCEZF. 

lEMBCTHI : Decimal constant to integer. 

IBMB CTHP ; Decimal constant to fixed pictured decimal. This module 
converts to free decimal and then branches to entry point IBMBCKZP. 

IBMBCTHX: Decimal constant to fixed binary. This module converts to 
free decimal and then branches to entry point IBMBCEZX. 

lEMBCTHZ: Decimal constant to free decimal. 
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Error and Exceptional Conditions 
CCiNVERSICN can occur in this module. 

Linkage 

Rl = A(PLIST) 
PLIST = A (source) 

A (source DED) 

A (target) 

A (target DED) 

Calls 

IBMBCE - Conversion (fixed deciiral - free decimal - float 

- fixed binary) . 
IBMBCK - Conversion (fixed decimal - free decimal ~ fixed decimal) 
lEMBCO - Conversion (packed decimal to pictured decimal). 
IBMDSCV - Conversion fix-up bootstrap. 

Called By 

Compiled code. 

lEMBCCL - Conversion director - complex strings (transient). 

IBMDCCR - Conversion director - non complex strings (transient). 

lEMBCCA - Conversion director (character to arithmetic). 

IBMBSFI - Input conversion director. 

lEMDSEE - Edit-directed combination module. 



IBMBCD - Conversion (Binary Constant to Float) 



Function 

To convert a binary constant to float. The module has five entry 
points : 

IBMBCUID: Binary constant to fixed decimal. This module converts to 
float and then branches to entry point IBMBCHFD. 

lEMECUIE; Binary constant to float pictured decimal. This module 
converts to float and then branches to entry point IBMBCHFE. 

IBMBCUIF: Binary constant to float. 

IBMBCUIX; Binary constant to fixed binary. This module converts to 
float and then calls entry point lEMBCEFX. 

IBMBCUIF : Binary constant to fixed pictured decimal. This module 
converts to float and then branches to entry point IBMBCHFP. 

Error and Exceptional conditions 

CONVERSION and SIZE can occur in this module. 
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Linkage 

Rl 
PLIST = 



Calls 



A (PLIST) 

A (source) 

A (source DED) 

A (target) 

A (target DED) 



lEMBCH - Conversion (fixed binary - float - free decimal 
IBMBCE - Conversion (fixed deciiral - free decimal - float 

- fixed binary) . 
IBMDSCV - Conversion fix-up bootstrap. 



Called By 

Compiled code. 

IBMBCCL - Conversion director - complex strings (transient). 
IBMDCCR - Conversion director - non coirplex strings (transient) 
lEMBCCA - Conversion director (character to arithmetic). 
IBMBSFI - Input conversion director. 



IBMBCV - Conversion (Packed Decimal to E-Forraat) 



The module has two 



Function 

To convert from fixed or free decimal tc E-format. 
entry points ; 

IBMBCVDY; Fixed decimal to E-format. 

IBMB CV ZY; Free decimal to E-format. 

Error and Exceptional Conditions 
SIZE can occur in this module. 

Linkage 

Rl = A (PLIST) 
PLIST = A (source) 

A (source DED) 

A (target) 

A (target DED) 

Called By 

Compiled code. 

IBMBCH - Conversion (fixed binary - float - free decimal 
lEMBCAC - Conversion director (arithmetic to character). 
IBMBCCL * Conversion director - complex strings (transient). 
lEMDCCR - Conversion director - non complex strings (transient) 
IBMBSFC - Output conversion director. 
lEMDSEE - Edit-directed combination module. 
IBMDSEH - Edit-directed combination subset module. 



Licensed Material - 
Property of IBM 



Chapter 6 : Conversion Routines 105 



IBMBCW * conver si on (Packed Deciipal to F~format ) 

Function 

To convert from fixed or free decimal to F- format. The module has two 
entry points: 

lEMECWDH: Fixed decimal to F- format. 

IBMBCWZH : Free decimal to F-format. 

Error and Exceptional Conditions 
SIZE can occur in this module. 

Linkage 

Rl = A(FLIST) 
PLIST = A(scurce) 

A (source DED) 

A (target) 

A (target DED) 

Called By 

Compiled code. 

lEMECH - Conversion (fixed binary - float - free decimal). 
IBMBCAC - Conversion director (arithmetic to character) . 
IBMECCL - Conversion director - complex strings (transient). 
IBMDCCR - Conversion director - non complex strings (transient). 
lEMBSFO - Output conversion director. 
IBMDSEE - Edit-directed combination module. 
lEMDSEH - Edit-directed combination subset module. 



IBMBCY - Conver sion (F ixed Bi nary t o Fix ed Binary and Float to Float ) 

Function 

The module has two entry points: 

IBMBCYFF: Float to float. 

IBMBCYXX: Fixed binary to fixed binary. 

Linkage 

Rl = A (PLIST) 
PLIST = A (source) 

A (source DED) 

A(target) 

A (target DED) 

Called By 

Compiled code. 

IBMBCCI - Conversion director - complex strings (transient). 

lEMDCCR - Conversion director - non complex strings (transient). 
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The computational subroutine package of the resident library can be 
divided into three main sections: 

1. Aggregate handling routines. These all have module names of the form 
IBMBA** . 

2. String handling routines. These all have module names of the form 
IBMEB** . 

3. Arithmetic and mathematical routines. These all have module names of 
the form IBWBM**. 

The routines are described below under these main section headings. 



AGGREGATE HANDLING ROUTINES 



The aggregate handling modules support the PL/I built-in functions ALL, 
ANY, STRING, PROD, SUM, and POLY. The modules are listed in figure 7.1. 



PL/ I Module 

Function 

ALL, ANY IBMBAAH 

STRING (built-in function) IBMBANM 

STRING (pseudovariable) IBMBAPM 

PROD (fixed integer) IBMBAPC 

PROD (float) lEMEAPF 

SUM (fixed) IBMBASC 

SUM (float) IBMBASF 

POLY (float) IBMBA YF 



Figure 7.1: Aggregate Handling Modules 



Two further modules are included in the aggregate handling package: a 
structure mapping module IBMEAMM and an array indexing module IBMBAIH. 
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The array indexing module is used by library modules for indexing 
interleaved arrays. It provides an indexing table for the array which 
allows the caller to step quickly through the array by the addition of 
address increments. 



MODULE DESCRIPTIONS 

IBMBAAH - ALI^ ANY (Simple/Interleaved 

Function 

To implement the PL/I built-in functions ALL(x) and ANY(x). The argument 
(x) of the function is a bit string array. The result is a scalar bit 
string of length equal to the greatest of the current lengths of the 
elements of x. The module has three entry points : 

IBMBAAHA; ALL(x) and ANY(x), for byte aligned x. 

IBMBAAHB : ALL(x) for unaligned x. 

lEMEAAHC; ANY(x) for unaligned x. 

Method 

For byte-aligned string arrays, the AND and OR operations are used for 
ALL and ANY respectively. For unaligned string arrays, the BCOL 
function is used with the appropriate parameter bits. 

For the first call, the first element of the array serves as both the 
first and the second argument, thus generating the first element in the 
target field. For subsequent calls, the target field is the first 
argument and the next element of the array is the second argument. 

Linkage 

Entry point IBy.BAAHA; 

Rl = A(PLIST) 

PLIST = A (aggregate locator) 

A (half word number of dimensions) 
A (half word for ALL, half word U for ANY) 
A (string locator descriptor of target field) 
A (array-type) (non-zero for multidimensional 
interleaved arrays; zero for simple and one- 
dimensional interleaved arrays) 

Entry points IBMBAAHB and IBMBAAHC 

Rl = A (PLIST) 

PLIST = A (aggregate locator) 

A (half word number of dimensions) 
A (half word 8) 

A (string locator descriptor of target field) 
A (array-type) (non-zero for multidimensional 
interleaved arrays; zero for simple and one- 
dimensional interleaved arrays) 
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Calls 

IBMBBBA - AND, OR (byte-aligned strings). 

lEMEBGE - BCOL. 

lEMEAIH - Indexer for interleaved arrays. 

Called By 
Ccirpiled code. 

IBMBAIH - Indexer for Interleaved arrays 

Function 

To calculate the extent of the nth dimension of an n- dimensional array 
and to construct a table which is used by the calling routine for 
indexing the array. The extent of the nth dimension is returned in 
Register Rl; the table is constructed in a work area provided by the 
caller. 



Method 

The format of the indexing table constructed by the module is shown in 
figure 7.2. The table contains three fullwords for each of the 
dimensions 1 thru (n-1) of the array, where n is the number of 
dimensions; it is thus 12* (n-1) bytes long. 
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SCn-1 = En-1 tthe initial value of 
the subscript count) 



En-1 = Un-1 - Ln-1 + 1 (extent) 



INCn-1 = Mn-1 ~ En*Mn (increment) 



SCi = Ei 






Ei = Ui - Li +1 


INCi = INCi+1 ♦ Mi - 


- Ei+i*Mi+i 





SC, = E, 






E, = U^ - Li + 1 


INC, = INCj ♦ M^ - 


- ^2*^2 





Figure 7.2: Array- Indexing Table 



The module constructs the table from the low-address end, using 
information in the Array Descriptor and in previously completed entries 
in the table. The three fields for each dimension contain the following 
information: 

Field 1 - Subscript Count (SO : 

The subscript count is a counting field used by the calling routine when 
indexing the array. It is initially set equal to the extent of the 
appropriate dimension of the array. 



Field 2 - Extent (E) : 
The extent field is set equal to 
U - L ♦ 1 



110 Licensed Material - Property of IBM 



where U and L are the upper and lower bounds of the appropriate 
dimension of the array. The extent is thus the number of subscript 
values that the particular dimension can take. 

Fi eld 3 - Increment (INC) : 

The increment for a particular dimension is used by the calling routine 
to locate the next element of the array when the subscript value for 
that dimension changes (and those of the lower dimensions, if any, 
remain unchanged) during array indexing. The increment for the ith 
dimension is computed as 

INCi = INCi+1 ♦ Mi - Ei+i*Mi+i 

where Mi is the multiplier for the ith dimension of the array. The 
value of INC.n is zero. 

Linkage 

On entry: Rl = A (work area in which the indexing table is to 

be constructed) 
R5 = A (array descriptor) 
R6 = A (half word number of dimensions) 

On return: Rl = Extent of nth dimension (Ej^) 

Called By 

IBMBAAH - ALL/ANY. 

IBMBASC - SUM (fixed point). 

IBMBASF - SUM (floating point). 

IBMBAPC - PRCD (fixed point integer) . 

lEMBAPF - PROD (floating point). 

IBMBANM - STRING built-in function. 

lEMBAPM - STRING pseudovariable. 

IBMBJWI - WAIT (array events) . 



lEMBAMM - Structure Ma pping 

Function 

The module has four entry points: 

lEMBAMMA: To compute the total length of a structure, given a complete 
Structure Descriptor (SD) and an Aggregate Descriptor Descriptor (ADD). 

IBMBAMMB: TO map a Structure completely using the PL/I mapping 
algorithm, given an ADD and an SD with only the length and bound fields 
complete. 

lEMBAMMC: To map a structure completely using the COBOL mapping 
algorithm, given an ADD and an SD with only the length and bound fields 
complete. 

IBMEAMMD : TO map a structure up to a given point and subsequently to map 
it further to another given point. This entry point is used when the 
REFER option is present in the structure declaration. 
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Method (chart BAMM) 

Point IBMBAMMA: 

The offset of the last base eleirent of the structure from the structure 
origin is found from the Structure Descriptor. If the last base element 
is an array, the offset of the array's actual origin from its virtual 
origin is obtained from the Array Descriptor and added to the base 
element offset previously found. The offset of the last element of the 
array from the structure origin is then found by adding the multiplier- 
upperbound products for each dimension. 

The length of the last element of the array is obtained, and the length 
of the structure is finally calculated as the byte offset of the last 
element from the structure origin, plus the number of bytes occupied by 
the last element and its bit offset. 

Entry Poin ts IBMBAMMB and IBMBAMMC : 

A Variable Data Area (VDA) is obtained in which the length accumulator, 
offset, dimensionality, and SD pointer are stored for each minor 
structure in PL/I mapping or each dimensioned minor structure in COBOL 
mapping. 

The length of a base element is found (in bits), and the element is 
aligned to the appropriate boundary. 

If the base element is an array, the offset field (AO-VC) of the Array 
Descriptor in the Structure Descriptor is cleared. If the uninherited 
dimensionality of the array is not zero, the multipliers for each 
uninherited dimension are stored in the Array Descriptor. 

The Virtual Origin sum is calculated for each of the uninherited 
dimensions, if any, and the amount by which the padding can be reduced 
is then calculated and added to the offset. The offset and the actual 
length of the packed structure are calculated, the element length added 
to the length accumulator, and the iraxiirum alignment updated if 
necessary. On the end of a structure for COBOL, each successive 
containing structure is tested until a minor dimensioned structure or 
the major structure is found. If the containing structure is minor with 
dimensions of its own, then the length so far calculated is padded to a 
multiple of the maximum alignment boundary appearing in it. This pad is 
stored so that it can be subtracted after the m.ultipliers have been 
calculated. 

If a dimensioned major or minor structure contains more than one base 
element, the bounds for the dimensions inherited fron that structure are 
set up by the compiler only for the first base element, and are copied 
by this m.odule for each of the remaining base elements. 

Adjacent structures are then aligned. The information at the top of the 
stack is unstacked, and the amount of padding which must be placed 
between the preceding and present structures calculated so that they are 
both aligned on the correct boundaries. The adjacent structure offset 
is then added. The offset from the start of the preceding minor 
structure to the start of the present minor structure is added into the 
partial offset sum of each base element of the present minor structure. 

Entry Point IBMBAMMD: 

This entry point uses the same mapping method as that described for 
IBMBAMMB, but maps the structure only as far as the point specified in 
the parameter list. The structure may already be partially mapped. 
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For this reason this entry point uses a VDA which is passed to it by the 
calling routine. 

Error and Exceptional Conditions 
The ERROR condition is raised if: 

1. The length of the structure is greater than or equal to 2**24 bytes. 

2. The value of (actual origin minus virtual origin) for the structure 
is greater than the one word field reserved for it in the aggregate 
descriptor descriptor. 

Linkage 

Entry Points IBMBAMMA, B, and C : 

Rl = A(FLIST) 
PLIST = A (target) 

A (structure descriptor) 

A (aggregate descriptor descriptor) 

Entry Point IBMBAMMD; 

Rl = A (PLIST) 
PLIST = A (target) 

A (structure descriptor field for the first element to 

be mapped) 
A (aggregate descriptor descriptor) 
A (half word containing the offset in the aggregate descriptor 

descriptor for the first element to be mapped) 
A(halfword containing the offset in the aggregate descriptor 

descriptor for the last element to be mapped) 
A (VDA) 

For all entry points, the third parameter on entry contains a fullword 
binary integer. This integer is equal to (POS- value minus one) for 
DEFINED structures, and zero for non-DEFINED structures. On exit, the 
parameter contains the length of the structure and its offset from a 
double word boundary. 

Called By 
compiled code 



lEMBANM - STRING Built-in Function 



Function 

To implement the PL/I built-in function STRING. The module has two 
entry points: 

IBMBANMA: Return a fullword containing the string length that would 
result from the concatenation of all the elements of an argument 
structure cr array. 
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IBMBANMB; Concatenate all the elements of an argument structure or array 
into a target field. 

Method (chart BANK) 

Entry Po int IBMBANMA: 

The routine consists essentially of finding the current length of each 
base eleirent and adding it to a length accumulator. Base elements are 
found by searching the Aggregate Descriptor Descriptor (ADD). If a base 
element is an array of fixed-length elements, the length is computed as 
the product cf the number of elements and the element length. For one- 
dimensional varying-string arrays, the current length of each string is 
found; for multi-dimensional varying-string arrays, use is made of the 
interleaved array indexing module lEMEAIH, which returns a table used in 
locating each element of the array. The indexing module is called for 
simple as well as for interleaved arrays, to avoid using additional code 
tc determine whether an array is simple or interleaved. 

Point IBy.BAMMB: 

If the argument is a non- dimensioned structure that does not contain any 
dimensioned minor structure, the current length and address of each 
element of every base element is found and the elements are assigned in 
turn to the target field after a test is made for STRINGSIZE. 

For array base elements, the current length and address of each element 
of the array is found, using module IBMBAIH for multi-dimensioned 
arrays, before assigning the array elements to the target in row major 
crder. 

If dimensioned structures were treated in the same way as non- 
dimensioned structures, the elements of the dimensioned structure would 
be assigned to the target as simple arrays in row major order. For 
example, the structure: 

1 A(2), 
2 B(2), 
2 C; 

would be assigned thus: 

B(1,1),B(1,2),E(2,1),B(2,2).C(1),C(2). 

Tc prevent this, each successive minor structure, or in the first 
instance the major structure itself, is tested for dimensionality. If 
the structure is dimensioned then the address and current length of each 
element in the structure is stored in a variable data area(VDA). When 
the end of the outeinnost containing structure is reached, these elements 
are sorted into core address order before being assigned to the target. 

Error and Exceptional Conditions 
STRINGSIZE can occur in this module. 
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Linkage 

Entry Point IBKBANMA : 

Rl = A(PIIST) 

PLIST = A (aggregate locator) 

A (aggregate descriptor descriptor) 

A (target field) 

Entry Point IBMBANMB : 

Rl = A(PLIST) 

PLIST = A (aggregate locator) 

A (aggregate descriptor descriptor) 
A (target locator descriptor) 

Calls 

IBMBAIH - Indexer for interleaved arrays. 
IBMBBGK - Concatenate (bit strings) . 
IBMBBGK - General assign (tit strings). 
IBMBBGF - Fill (bit strings). 

Called By 
Ccirpiled code. 



IBMBAPC - PROD (Simple or Interleaved 
Arrays with Fixed Point Integer Eleirents) 



Function 

To produce a scalar whose value is the product of all the elements in 
the array argument. The elements of the array argument may be fixed 
point binary or decimal, real or complex. Real elements and both the 
real and the imaginary parts of complex elements must be integers. 

Method 

The elements of the array are used in row major order to multiply the 
current product. For multidimensional interleaved arrays the module 
calls the indexer module IBMBAIH to produce an indexing table for the 
array. 

For fixed point binary integers the product is computed at each step to 
63 bits and then reduced to 31 bits by a left shift operation. Each 
left shift operation incorporates a test for FIXEDOVERFLOW. ^ The result 
is stored as FIXED (31,0). For fixed point decimal integers the product 
is calculated throughout as FIXED (31,0) and is finally assigned to the 
target field as FIXED(15,0). A test is made for FIXEDOVERFLOW. 

Error and Exceptional Conditions 
FIXEDOVERFLOW can occur in this module. 
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Linkage 

Rl = A(PLIST) 

PLIST = A (aggregate locator) 

A (half word nuirber of dirrensions) 
A (data element descriptor of array) 
A (target) 

A (array-type) (non-zero for multidimensional 
interleaved arrays; zero for simple and one- 
dimensional interleaved arrays) 



Calls 

IBMBAIH - Indexer for interleaved arrays. 

Called By 
Compiled code. 



IBMBAPF - PROD (Simple pr Interleaved 
Arrays with Floating Point Elem,ents) 



Function 

To produce a scalar whose value is the product of all the elements in 
the array argument. The elements of the array argument may be short or 
long floating point, real or complex. The module has four entry points: 

I EM BAP FA : Short float real elements 

IBMBAPFB: Short float complex elements 

IBMBAPFC: Long float real elements 

IBMEAPFD: Long float complex elements 

Method 

The elements of the array are used in row major order to multiply the 
current product. For multidimensional interleaved arrays the module 
calls the indexer module IBMBAIH to produce an indexing table for the 
array. 

Error and Exceptional Conditions 

OVERFLOW or UNDERFLOW can occur in this module. 

Linkage 

Rl = A (PLIST) 

PLIST = A (aggregate locator) 

A (half word number of dimensions) 
A (target) 

A (array-type) (non-zero for multidifftensional 
interleaved arrays; zero for simple and one- 
dimensional interleaved arrays) 
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Calls 

IBWBAIH - Indexer for interleaved arrays. 

Called By 
Ccrrpiled code. 

IBMBAPt^ - STRINGPseudpvariable 

Function 

To assign a bit or character string to the elements of an array or 
structure variable. 

Method (chart BAPM) 

The pseudovariable must have as argument a structure variable composed 
entirely of: 

1. bit strings and/or binary numeric pictured data, 
or 

2. character strings and/or decimal numeric pictured data. 

The total number of eleirents of all base elements of the structure is 
found and a variable data area (VDA) is obtained of length 8 bytes for 
each element. Each 8-byte field is made into a string 

locator/descriptor for an element as the allocated length and address of 
each element is determined. For multi-dimensioned array base elements 
the interleaved array indexing module lEMEAIH is used to locate each 
element. The indexing module is called for simple as well as for 
interleaved arrays to avoid using additional code to determine whether 
the array is simple or interleaved. 

Since each base element of a dimensioned structure is an interleaved 
array, and SLDs (string locator descriptors) are set up in the VDA for 
all elements of one interleaved array at a time, the order in which the 
SLDs are set up does not necessarily correspond to the order in which 
the elements are encountered in the structure. For example, elements of 
the structure: 

1 A(2), 
2 B(2), 

2 C 

appear in storage in the order: 

B(1,1),B(1,2),C(1),B(2,1),B(2,2),C(2) 

but the SLDs are set up in the VDA in the 
order: 

B(1,1),B(1,2),B(2,1),B(2,2),C(1),C(2) 

Therefore after the last entry in the VDA is completed, a simple 
exchange sort is carried out to arrange the SLDs in the order of the 
core addresses of the corresponding elements. (For non-dimensioned 
structures the SLDs will already be in the required order) . The source 
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string is then assigned to the elements in core address order and any 
padding which may be necessary is performed. A check for STRINGSIZE is 
made when assigning to the last eleirent of the structure. 



Error and Exceptional Conditions 
STRINGSIZE can occur in this module. 



Linkage 

Rl 
PLIST = 



A(FLIST) 

A (structure descriptor) 

A (Aggregate descriptor descriptor) 

A (string locator descriptor of source string) 



Calls 

IBMBAIH 
IBMBCEB 



Indexer for interleaved arrays 
Conversion (bit to tit). 



Called By 
Compiled code. 



lE M BASC - SUM (Simple or interleaved 
Arrays with Fixed Point Elements) 



Function 

To produce a scalar whose value is the sum of all the elements in the 
array argument. The elements of the array argument may be fixed point 
binary or decimal, real or complex. 

Method 

The elements of the array are added to the current sum in row major 
order. For multidimensional interleaved arrays the module calls the 
indexer module IBMBAIH to produce an indexing table for the array. 

For fixed point binary elements of precision (p,g)» the sum is both 
accumulated and stored to precision (31, q). For decimal elements, 
however, the sum is accumulated to precision (31,q) but stored to 
precision (15, g); a test is therefore made for FIXEDOVERFLOW. 



Error and Exceptional Conditions 
FIXEDOVERFLOW can occur in this module 

Linkage 

Rl = A (PLIST) 

PLIST = A (aggregate locator) 

A (half word number of dimensions) 
A (data element descriptor of array) 
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A (target) 

A (array-type) (non-zero for multidimensional 
interleaved arrays; zero for simple and one- 
dimensional interleaved arrays) 



Calls 

IBMBAIH - Indexer for interleaved arrays. 



Called Ey 
Compiled code. 



lEMBASF - SUM (Simple or Interleaved 
Arrays with Floating Point Elements ) 



Function 

To produce a scalar whose value is the sum of all the elements in the 
array argument. The elements of the array argument may be short or long 
floating point, real or complex. The module has four entry points: 

IBMBASFA ; Short float real elements 

IBMBASFB: Short float complex elements 

IBMBASFC; Long float real elements 

IBMBASFD: Long float complex elements 

Method 

The elements of the array are added to the current sum in row major 
order. For multidimensional interleaved arrays the module calls the 
indexer module IBMBAIH to produce an indexing table for the array. 

Error and Exceptional Conditions 

OVERFLOW or UNDERFLOW can occur in this module. 

Linkage 

Rl = A(PLIST) 

PLIST = A (aggregate locator) 

A (half word number of dimensions) 
A (data element descriptor of array) 
A (target) 

A (array-type) (non-zero for multidimensional 
interleaved arrays; zero for simple and 
one-dimensional interleaved arrays) 

Calls 

IBMBAIH - Indexer for interleaved arrays. 
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Called By 
Ccnipiled code. 

IBMBAYF - POLY Built-in Function 

Function 

To implement the PL/I built-in function POLY (A, X). The module has four 
entry points : 

IBMBAYFA: Short float real arguments. 

IBMBAYFB; Short float complex arguments. 

IBMBAYFC: Long float real arguments. 

IBMBAYFD: Long float complex arguments. 

The function is defined as follows: 

Let A and X be vectors, that is, one-dimensional arrays, declared as 
A(m:n) and X(p:q). Then: 

(n-m) (i-1) 
POLY(A,X) = A(ra) + > A(m+j)* | | X{p+i) 

j=l i=0 

unless n=m, when the result is A(m). 

If (q-pXCn-m-l) then for (p+i)>q , 

X(p+i) = X(q) 

If X is scalar it is treated as the vector X(l). The function 
is then computed as: 

(n-m) 
POLY (A, X) = > A(m+j)*X**j 

j=:0 

Method 

Ca se 1 - Vector X, (g-p) ^ (n-m-1) : 

POLY(A,X) is evaluated by nested multiplication and addition, i.e. 

(... (A(n)*X(k) + A(n-l))*X(k-l) + A(n-2) ) ♦. . . .+A(ro+1) )*X(p) +A(m) 

where k - p+ n-m-1 

Case 2 - Vector X. (q-p)<( n-ir-l) : 

In the expression given in Case 1 above, the terms in X with subscripts 
ranging from k down to q are all made equal to X(q). 
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Case 3 - Scalar X ; 

In the expression given in Case 1, all terms in X are made equal to X. 

Error and Exceptional Conditions 

OVERFLOW or UNDERFLOW can occur in this module. 



Linkage 

Rl = A(PLIST) 

PLIST = A (aggregate locator for A) 

A(X) (zero for vector X) 

A (aggregate locator for X) (zero for scalar X) 

A (target) 



Called By 
Compiled code 

STRING HANDLING ROUTINES 



The String handling modules of the resident library are listed in figure 
7.3. 



PL/I PL/I 
Operations Functions 

AND, OR 

NOT 

Compare 

concatenate REPEAT 
INDEX 
TRANSLATE 
VERIFY 
BOOL 
SUBSTR 

Fill, Assign 



Character Strings 



Bit Strings 



lEMEBCK 
lEMEBCI 
IBMBBCT 
IBMBBCV 

IBMBBGS 



Byte-aligned 

lEMBBBA 
IBMBBBN 



General 



IBMBBGC 
IBMBBGK 
IBMBBGI 

IBMBBGV 
IBMBBGB 
IBMBBGS 



IBMBBGF 



Figure 7.3: String Handling Modules 
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MODULE DESCRIPTIONS 

IBMBBBA - AND a nd OR Operati ons (Byte-aligned Bit Strings) 

Functicn 

Tc irnpleirent the logical AND and OR operations between two byte-aligned 
bit strings. The module has two entry points: 

IBMBBBAA ; AND operation. 

lEMBBBAB ; OR operation. 

Method 

Entry Point IB MBBBAA; The current length of a varying target is set to 
the length of the longer operand, or to the maximum length of the target 
field if this is smaller. The two strings are then ANDed together for 
the length of the shorter operand. The remainder of the target field is 
filled with zeros. 

Entry Point IBM BB BAB ; The current length of a varying target is set to 
the length of the longer operand, or to the maximum length of the target 
field if this is smaller. The two strings are then ORed together for 
the length of the shorter operand. The remainder of the longer string 
is moved unchanged to the target field. 

Error and Exceptional Conditions 
STRINGSIZE can occur in this module. 

Linkage 

Rl = A(PLIST) 

PLIST = A (string locator descriptor of first operand) 

A (string locator descriptor of second operand) 

A (string locator descriptor of target) 

Called By 

Compiled code. 
IBMBAAH - ALL/ANY. 
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IBMBBBN - NOT operation (Byte- aligned Bit Strinqs) 



Function 

Tc implement the NOT operation on a byte-aligned bit string and place 
the result in a byte-aligned target £ield. 

Method 

The current length of a varying target is set to the current length of 
the operand, or to the maximum length of the target field if this is 
smaller. The current length of the target field is then set to a string 
of ones, and the result is obtained by an EXCLUSIVE-OR operation with 
the operand. 

Error and Exceptional Conditions 
STRINGSIZE can occur in this module. 

Linkage 

Rl = A(FLIST) 

PLIST = A(string locator descriptor of operand) 
A (string locator descriptor of target) 

Calls 

IBMBBGFC - Fill (bit strings) 

Called By 
Compiled code 
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IBMBBCI " INDEX (Character Strings) 

Function 

To implement the PL/I built-in function INDEX(bit string, configuration 
string) 

Method 

The index is found by shifting and comparing portions of the two strings 
in even-odd pairs of registers. The index is stored in the target field 
as a binary integer of default precision. 

Linkage 

Rl = A(PLIST) 

PLIST = A (string locator descriptor of source string) 

A (string locator descriptor of configuration string) 

A (half word target) 

Called By 
Compiled code. 



IBMBBCK - Concatenate, REPEAT (Charact.er 



Function 

To concatenate character strings. The module has two entry points: 

IBMBBCKA ; To concatenate two character strings into a target field. 

IBMBBCKB ; To implement the PL/I built-in function REPEAT, that is, to 
concatenate a single character string with itself n times and to form 
the resulting n+1 instances of the string in a target field. 

Method 

Both entry points of the module use an internal subroutine which obtains 
data from a source, aligns it correctly and moves it to the target 
field. 

Entry Point IBMBBCKA: 

The current length of a varying target is made equal to the sum of the 
lengths of the two source strings, or to the maximum length of the 
target field if this is smaller. The internal subroutine is then used 
twice to move the source strings to the target field. 
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Entry Point IBMBBCKB; 

The current length of a varying target is made equal to (n+1) times the 
length of the source string, or to the rraxiirun; length of the target 
field if this is smaller. The internal subroutine is then used 
repeatedly to assemble the concatenated string in the target field. To 
reduce the number of times the subroutine is used, the target field is 
concatenated with itself whenever possible. 

Error and Exceptional Conditions 
STRINGSIZE can occur in this module. 

Linkage 

Entry Point IBMBBCKA; 

Rl = A(PLIST) 

PLIST = A (string locator descriptor of first string) 

A (string locator descriptor of second string) 

A (string locator descriptor of target) 

Entry Point IB^^BBCKB : 

Rl = A (PLIST) 

PLIST = A (string locator descriptor of source string) 

A(n) 

A (string locator descriptor of target) 

Called By 
Compiled code. 



IBMBBCT ~ TRANSLATE (Character String ) 

Function 

To implement the PL/I built-in function TRANSLATE for character string 
arguments. 

Method 

The module uses a translate table consisting of the 256 elements of the 
EBCDIC code arranged in ascending order and modified in such a way that 
any character appearing in the position string is replaced in the table 
by the corresponding replacement string character. The translate table 
may either be passed to the the routine by compiled code or constructed 
by the module itself. The necessary substitution of characters in the 
source string is then accomplished using the Translate (TR) instruction. 
Finally, the translated string is assigned to the target. 

Error and Exceptional conditions 

The STRINGSIZE condition can occur in this module. 
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Linkage 

Rl = A(PLIST) 

PLIST = A (string locator descriptor of source string) 

A (string locator descriptor of replacement string) or 

zero if the translate table has been built 
A (string locator descriptor of position string) or 

zero if not specified 
A (target string locator) 

A (Translate table) or zero if both 2nd 3rd arguments 
are non-zero 

Called By 
Ccmpiled code 

IBMBBCV - VERIFY (Character Strings ) 

Function 

To implement the PL/I built-in function VERIFY for character string 
arguments. 

Method 

The address cf a translate table consisting of the 256 elements of the 
EBCDIC code arranged in ascending binary order is passed to the module 
by compiled code. The module modifies the table by replacing any 
character that appears in the verification table by zero and setting the 
remaining elements of the table to X'FF*. The Translate and Test 
instruction TRT is then used to check the characters of the source 
string from left to right. If a non-zero byte is referenced in the 
source string, its position is returned as a binary integer of default 
precision, otherwise the result field is set to zero. 

Linkage 

Rl = A (PLIST) 

PLIST = A (string locator descriptor of source string) 

A (string locator descriptor of verification string) 

A (translate table) 

A(halfword result field) 

Called By 
Ccmpiled code. 

IBMBBGB - BOOL (Bit Strings) 

Function 

To take two source strings and perform one of the sixteen possible 
logical operations between corresponding bits. The particular operation 
performed is defined by inserting the bit pattern nl,n2,n3,nU yielded by 
the third argument into the following table. 
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1 First field 








1 1 


1 Second field 





1 


1 


1 Target field 


nl 


n2 


n3 n4 



Method 

The current length of the target string is set equal either to the 
maximum of the current lengths of the source strings or to the maxiitiuiri 
length of the target field if this is smaller. The specified operation 
is then performed on the strings and the result is stored in the target 
field. If one string is shorter than the other it is regarded as being 
extended on the right with zeros up to the length of the longer. 

Error and Exceptional Conditions 
STRINGSIZE can occur in this module. 

Linkage 

Rl = A(PLIST) 

PLIST = A (string locator descriptor of first string) 

A (string locator descriptor of second string) 

A (string locator descriptor of target) 

A(halfword containing nl,n2,n3,n4 in the last four bits) 

Calls 

IBMBBGFC - Fill (Byte-aligned strings) 

Called ty 

Compiled code. 
IBMBAAH - ALL/ANY. 



lEMBBGC - Ccmipare (General Bit Strings ) 

Function 

To compare two bit strings and to return a condition code as tits 2 and 
3 of a fullword target as follows: 

00 if the two strings are equal. 

01 if the first string compares low (i.e. has a 'O'B) at the first 
inequality. 

10 if the first string compares high (i.e. has a '1*B) at the first 
inequality. 
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The shorter string is treated as though extended with zeros to the 
length of the longer. 

Method 

Corresponding portions of the two strings, up to 32 bits long, are 
aligned in even-odd register pairs and then corrpared using the CLR 
instruction. 



Linkage 

Rl = A(FLIST) 

PLIST = A (string locator descriptor of first operand) 

A (string locator descriptor of second operand) 

A (target) 



Called By 
Compiled code. 



lEMBBGF - Assig n (Byte- Aligned Bit 
Strings) and Fill (General Bit Strings ) 

Function 

To assign a fixed or varying byte-aligned bit string to a fixed or 
varying byte-aligned bit string target, and to fill a general bit string 
to its inaxinium length with zeros. The module has three entry points: 

IBMBBGFA ; Assign a byte-aligned bit string to a byte-aligned target, 
filling cut with zero bits if necessary. 

lEMBBGFE: Fill out a byte-aligned bit string with zero bits, for a 
specified length. This entry point is used only by compiled code. 

IB M BBGFC ; Fill out a byte-aligned bit string with zero bits, for a 
specified length. This entry point is used only by other library 
modules. 

Error and Exceptional Conditions 
STRINGSIZE can occur in this module. 

Linkage 

Entry Point IBMBBGFA : 

Rl = A (PLIST) 

PLIST = A (string locator descriptor of source string) 
A (string locator descriptor of target string) 

Entry Point IBMBBGFB : 

Rl = A (PLIST) 

PLIST = A (string locator descriptor of target to be filled) 
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Entry Point IBMBBGFC : 

Rl = Complement of number of bits in the bit overlap. 

R6 = Length tc be filled. 

R8 = Byte origin of target to be filled. 



Called By 

Compiled code. 

IBMBANW - STRING built-in function. 

lEMBBGK - Concatenate (general bit strings). 

IBMBBGB - BOCL (general bit strings). 



lEMEBGI - INDEX (Bit Strings) 

Function 

To implement the PL/I built-in function INDEX (bit string, configuration 
string) 

Method 

The index is found by shifting and comparing portions of the two strings 
in even-odd pairs of registers. The index is stored in the target field 
as a binary integer of default precision. 

Linkage 

Rl = A(PLIST) 

PIIST = A (string locator descriptor of source string) 

A (string locator descriptor of configuration string) 

A (half word target) 

Called By 
Compiled code. 



IBMBBGK - Concatenate, REPEAT, and 
General Assign (Bit Strings) 



Function 

To concatenate bit strings and to assign them to a target. The module 
has three entry points : 

IBMBBGKA: To concatenate two bit strings into a target field. 

IBMBBGKA: To implement the PL/I built-in function REPEAT, that is, to 
concatenate a single bit string with itself n times and to form the 
resulting n+1 instances of the string in a target field. 

IBMBBGKC ; To assign a bit string to a target field. 
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Method 

All three entry points of the module use an internal subroutine which 
obtains data from a source, aligns it correctly and moves it to the 
target field. 

Point IBMBBGKA : 

The current length of a varying target is made equal to the sum of the 
lengths of the two source strings, or to the maximum length of the the 
target field if this is smaller. The internal subroutine is then used 
twice to move the source strings to the target field. 

Entr y Point IBMBBGKB : 

The current length of a varying target is made equal to (n+1) times the 
length of the source string, or to the maximum length of the target 
field if this is smaller. The internal subroutine is then used 
repeatedly tc assemble the concatenated string in the target field. To 
reduce the number of times the subroutine is used, the target field is 
concatenated with itself whenever possible. 

Entry Point lEMEBGKC : 

The current length of a varying target is made equal to the current 
length of the source string. The internal subroutine is then used once 
to move the contents of the source string to the target field. 

Error and Exceptional Conditions 
STRINGSIZE can occur in this module. 

Linkage 

Entry Point IBMBBGKA : 

Rl = A(PLIST) 

FLIST = A (string locator descriptor of first string) 

A (string locator descriptor of second string) 

A (string locator descriptor of target) 

Entry Point isy.BBGKB; 

Rl = A(PLIST) 

PLIST = A (string locator descriptor of source string) 

A(n) 

A (string locator descriptor of target) 

Entry point lEMEBGKC : 

Rl = A (PLIST) 

PLIST = A (string locator descriptor of source string) 
A (string locator descriptor of target) 

Called By 

Compiled code. 

lEMBNMA - STRING built-in function. 
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IBMBBGS - SUBSTR SLD 



Function 



Tc produce a string locator descriptor (SLD) describing the substring 
specified by the SUBSTK built-in function or pseudovariable. The module 
has four entry points: 

IBMBBGSA; SUBSTR (bit string, i) 

IBMBBGSB ; SUBSTR( character string, i) 

IBMBBGSC; SUBSTR (bit string, i, j) 

IBMBBGSD; SUBSTR ( character string, i,j) 

Method 

Arithmetic is performed according to the function definition, using the 
current length of the argument string. The result described by the SLD 
is a fixed-length string. 

Error and Exceptional Conditions 
STRINGRANGE Can occur in this module. 

Linkage 



Entry Points lEM BBGSA and B : 

Rl = A(FLIST) 

PLIST = A (string locator descriptor of source string) 

A(i) 

A( field for target SLD) 

Entry Points IBMBBGSC and D : 

Rl = A (PLIST) 

PLIST = A (string locator descriptor of source string) 

A(i) 

A(j) 

A (field for target SLD) 

Called By 
Compiled code. 

IBMBBGV 7 VERIFY (Bit Strings ) 

Function 

To implement the PL/I built-in function VERIFY for bit string arguments. 
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Method 

The verification string is first checked to see whether it contains only 
•I'Bs, only 'O'Es, or both. If the verification string contains both 
'O'Bs and 'I'Bs, a zero is returned in the result field. If the 
verification string contains only 'O'Bs or only 'I'Bs, the source string 
is searched bit-by-bit for an offending bit. If such a bit is found, 
its position is returned in the result field; otherwise a zero is 
returned. 

Linkage 

Rl = A(PLIST) 

PLIST = A (string locator descriptor of source string) 

A (string locator descriptor of verification string) 

A (half word result field) 

Called By 
Ccirpiled code. 
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ARITHMETIC AND MATHEMATICAL ROUTINES 



The modules described in this section support the PL/I fcuilt-in 
arithmetic and mathematical functions and also provide support for 
several arithmetic operations that are too complicated or time-consuming 
to be done inline. 

The arithmetic operations supported by the library are shown in figure 
7.4. Routines are provided to handle exponentiation, complex 
multiplication and division, and the PL/I built-in functions ADD, 
MULTIPLY, DIVIDE, and ABS. It should be noted that these operations are 
not necessarily always handled by a call to the library; they may be 
dene inline. 



The mathematical built-in functions supported by the library are shown 
in figure 7.5. 



Operation or Function 



Integer exponentiation: x**n 
General exponentiation: x**y 
Shift-and-assign, shif t-and-load 

ADD 



Real Operands 



Fixed 
binary 


Fixed 
decimal 


Short 
float 


Long 
float 


- 


IBMBMUD 
IBMBMOD 


IBMBMXS 
IBMBMYS 


IBMBMXL 
IBMBMYL 


Fixed 
binary 


Complex 

Fixed 

decimal 


Operands 
Short 
float 


Long 
float 



Integer exponentiation: z**n 

General exponentiation: zl**z2 

Division: zl/22 

Multiplication: zl*z2 

Multiplication/division: zl*z2; zl/z2 IBMBMVU IBMBMW 

ADD ~ IBMBMOD 

MULTIPLY IBMBMPU IBMBMPV 

DIVIDE lEMEMQU IBMBMQV 

AES IBMBMRU IBMBMRV 



IBMBMXW 
IBMBMYX 
IBMBMWX 
IBMBMVW 



IBMBMRX 



IBMBMXW 
IBMBMYY 
IBMBMWY 
IBMBMVW 



IBMBMRY 



Figure 7.4: Arithmetic Operations 
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Real Arguments 



Function 

SQFT 

EXP 

ERF, ERFC 

LOG, LCG2, LOGIO 

SIN, SIND, COS, COSD 

TAN, TAND 

SINH, COSH 

TANH 

ATAN, ATAND 

AlANH 

ASIN, ACOS 



Short 


Long 


float 


float 


IBMBMAS 


IBMBMAL 


IE^3E^3BS 


lEMEMEL 


IBMBMCS 


IBMBMCL 


lEMEMDS 


lEMEMBL 


IBMBMGS 


IBMBMGL 


lEMEMHS 


lEMEMHL 


IBMBMIS 


IBMBMIL 


lEMEt'.JS 


IEME^f!JL 


IBMBMKS 


IBMBMKL 


IBMEMLS 


lEMEMLL 


IBMBMMS 


IBMBMML 



Coirplex Arguments 





Short 


Long 


Function 


float 


float 


SQRT 


lEMEMAX 


lEMEMAY 


EXP 


IBMBMBX 


IBMBMBY 


LOG 


IBMEMDX 


lEMBMBY 


SIN, SINH, COS, COSH 


IBMBMGX 


IBMBMGY 


TAN, TANH 


lEMEMHX 


lEMEMHY 


ATAN, ATANH 


IBMBMKX 


IBMBMKY 



Figure 7.5: Mathematical Functions 



MODULE DESCRIPTIONS 

IBMBMAL - SQRT (Long Float Real) 

Function 

To calculate the square root of x. 

Method 

If X = 0, SCRT(x) = 0. Otherwise, let x = 16**(2*p - q)*f, where p is an 
integer, q = or 1, and 1/16 < f < 1. Then 

SCRT(x) = 16**p*4**-q*SCRT(f) 

The first approximation of SCRT(x) is computed as: 

y^= 16**p*4**(l-q)*0. 2202 (f +0.2587) 

This approximation was chosen in order to permit the use of single 
precision instructions in the final iteration by making the quantity 
x/ya-ya less than 16**(p-8). 

Four Newton-Raphson iterations of the form yn+i -^Yn "*" x/yn)/2 are then 
applied, two in short precision and two in long precision, the last 
being computed as 



13U 
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SQRT(x) = ya ♦ (x/ya - y^)/! 

with an appropriate truncation maneuver to obtain virtual rounding. 

The maxiroum relative error of the final result is theoretically 2**- 
63.23. 

Error and Exceptional Conditions 

The ERROR condition is raised if x is negative. 

Linkage 

Rl = A(PLIST) 
PLIST = A(x) 

A (target) 

Called By 

Compiled code. 

IBMBMML - ASIN (long float real). 

lEMBMRY - ABS (long float complex). 

IBMBMAY - SQRT (long float corrplex) 



lEMBMAS ' SgRT (Short Float Real ) 

Function 

Tc calculate the square root of x. 

Method 

If X = 0, then SQRT(x) = 0. 

Otherwise, let 

X = 16** (2*p - q)*f 
where p is an integer, q = or 1, and 1/16 < f < 1. 
Then 

SQRT(x) = 16**p*U**-q*SgRT(f ) 
The first approximation of SQRT(x) is obtained by the hyperbolic fit 

yo= 16**p*U**-q (1.681595 - 1.288973/(0.8408065 + f ) ) 

This approximation attains the rainimax relative error. The maximum 
relative error is 2**-5.7U8. 

The Newton-Raphson iteration 

Yn+i = <yn + x/yn)/2 
is applied twice, the second iteration being performed as 
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Ya = (yi - x/yj.)/2 + x/yi 

with partial rounding. 

The maxiiruni relative error of y^ is theoretically 2**-25.9 

Error and Exceptional Conditions 

The ERROR condition is raised if x is negative. 



Linkage 

Rl = A(FLIST) 
PLIST = A(x) 

A(target) 



Called Ey 

Compiled code. 

lEMBMMS - ASIN, ACQS (short float real). 
IBMBMRX - ABS (short float corrplex) . 
lEMBMAX - SQRT (short float complex). 



IBMBMAX, IBMBMAY - SgRT (Float Complex ) 

Modules 

Argument Module 

short float IBMBMAX 

long float lEMEMAY 

Function 

To calculate the principal value of the square root of z, where z = x + 
yl. The principal value is that result satisfying the condition -pi/2 < 
argument of result < pi/2. 

Method 

1. Let SQRT(x+yI) = a+bl. 

2. let SCRT((AES(x) + AES(x+yI) )/2) = k*SCRT (w^+w^) = c 

Vj. = MAX(ABS(x),ABS(y)) and 
Va = MIN(ABS(x),AES(y)) 

3. In the special case when either v^ = or v^ » Va let Wj. = Va and Wa 
Let k = 1 if Vj. = ABS(x) or k = 1/SQRT(2) if Vj. = ABS(y) 
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U. In the general case compute: 

F = SQRT(l/4+(l/4)*(Va./V2)**2) 
If ABS(x) is near the underflow threshold, then take 

WjL = ABS(x), W2 = Vi*2*F, and k = 1/SQRT(2) 
If Vi*F is near the overflow threshold, then take 

Wi = ABS(x)/4, Wa = Vi*F/2, and k = SQRT(2) 
In all other cases take 

Wj. = ABS(x)/2, Wa = v^+F, and k = 1 

5. Cornpute c. The appropriate real square root routine is called to 
evaluate SCPT(Wi + w^) ; see "Calls" below. 

6. If c = then a = b = 0. 

If c * and x > 0, then a=c and b=y/(2*c). 

If c * and x < 0, then a=ABS(y/(2*c) ) and b=SIGN(y)*c. 

Linkage 

Rl = A(PLIST) 
PLIST = A(z) 

A (target) 

Calls 

IBMBMAS - SQRT (short float real). 
IBMBMAI - SQRT (long float real). 

Called By 
Compiled code. 

lEMBMEI - EXF (Long Float Real) 

Function 

To calculate e to the power of x. 

Method 

If X < -180.2187, return zero result. Otherwise EXP(x) is calculated 
as follows: 

1. Divide X by LOG (2) and write 

X = (U*a-b-c/16)*LOG(2)-d 
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where a, b and c are integers, 0<b<3, 0<c<15, and the 

remainder d is in the range < d < LOG(2)/16. This reduction is 

carried out in extra precision. Then EXP(x) = 16**a*2**-fc*2**(- 
c/16)*EXP(-d). 

2. Compute EXP(-d) by using a minimax polynomial approximation of degree 
6 over the range < d < LCG(2)/16. The coefficients of this 
approximation were obtained by taking the minirrax of relative errors 
under the constraint that the constant term shall be exactly one. 
The relative error is less than -2**56.87. 

3. Multiply EXF(-d) by 2** (-c/16) , then halve the result b times. 

U. Finally, add the hexadecimal exponent a to the characteristic of the 
answer. 

Error and Exceptional Conditions 

The OVERFLOW condition occurs if x > 174.673. 

Linkage 

Rl = A(FLIST) 
PLIST = A(x) 

A (target) 

Called By 

Compiled code. 

IBMBMYI - General Exponentiation (long float real). 

lEMBMCL - ERF,ERFC (long float real). 

IBMBMBY - EXP (long float complex). 

lEMEMIL - SINH,COSH (long float real). 

IBMBMGY - SIN, SINH, COS, COSH (long float complex). 

lEMBMJL - TANH (long float real). 



IBMBMBS - EXP (Short Float Real) 

Function 

To calculate e to the power of x. 

Method 

If X < -180.2187, return zero result. Otherwise EXP(x) is calculated 
as follows : 

1. Divide X by LOG (2) and write 

y = x/L0G(2) = 4*a-b-d 

where a and b are integers, < b < 3, and < d < 1. 
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Then EXP(x) = 2**y = I6**a*2**-b*2**-d 

2. Compute 2**-cl by the following fractional approximation 

2**-d = l-2*d/(0.02a657359*d**d+d+9.95U59U6-617. 97227/ 

(d**2+87. 417497)) 

This formula can he obtained by the transformation of the Gaussian 
continued fraction 

EXP(-z) = l-z/(l+z/(2-z/(3+z/(2-z/(5*z/(2-z/(7+z/2))))))) 

The maximum relative error of this approximation is 2**- 29. 

3. Multiply 2**-d by 2**-b 

4. Finally, add the hexadecimal exponent a to the characteristic of the 
answer. 

Error and Exceptional Conditions 

The OVERFLOW condition can occur if x >174.673. 

Linkage 

Rl = ACFLIST) 
PLIST = A(x) 

A (target) 

Called By 

Compiled code. 

IBMBMYS - General Exponentiation (short float real). 

IBMBMCS - ERF,ERFC (Short float real). 

IBMBMBX - EXP (short float complex). 

IBMBMIS - SINH.COSH (short float real). 

IBMBMGX - SIN, SINH, COS, COSH (short float complex). 

IBMBMJS - TANH (short float real). 



IBMBMBX, IBMBMBY - EXP (Float Complex ) 

Modules 

Argument Module 

Short float IBMBMBX 

Long float IBMBMBY 

Function 

To calculate e to the power z. 
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Method 

Let z = X + yl. 

Then R£AL(EXP(z))=EXP(x)*COS(y) 

and IWAG(EXE(z))=EXP{x)*SIN(y) 

Error and Exceptional Conditions 

The ERROR condition is raised in the called real SIN routine IBMBMGS 
(short) or IBMEMGL (long) if: 

ABS(y) > 2**18*pi - short 
2**50*pi - long 

The OVERFLOW condition can occur in the real EXP routine IBMBMBS (short) 
or IBMBMBL (long) . 

Linkage 

Rl = A(PLIST) 
PLIST = A(z) 

A (target) 

Calls 

IBMEMBX calls: 

IBMBMBS - EXP (short float real). 
lEMBMGS - SIN, COS (short float real). 

IBMBMBY calls: 

IBMBMBL - EXP (long float real). 
IBMBMGL - SIK, COS (long float real). 

Called By 

Compiled code. 

Routines IBMBMEX and IBMBMBY are called by the complex general 
exponentiation routines IBMBMYX and IBMBMYY respectively. 



IBMBMCL - ERF^ ERFC (Long Float Real) 

Function 

To calculate the error function of x or the complement of this function. 
The module has two entry points: 

IBMBMCLA: ERF 

IBMBMCLB: ERFC 
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Method 

Case 1; < x < 1 

Coicpute ERF(x) by the following approximation: 

ERF(x) = x*(ao-»-ai*x**2+aa*x**U+. . ..+aii*x**22) 

The coefficients were obtained by the minimax approximation in 
relative error of ERF(x)/x as a function of x**2 over the range < 
x**2 < 1. The relative error of this approximation is less than 2**- 
56.9. 

ERFC(x) = l-ERF(x) 

Case .2; 1 < x < 2.040452 

Compute ERFC (x) by the following approximation: 

ERFC(x) = t +bi*z+ba*z**2+....+b,8*z**18 

where z = x-T and T = 1.709472. The coefficients were obtained by the 
minimax approximation in absolute error of the function f(z) = 
ERFC(z+T) over the range -0.709472 < z < 0.330948. The absolute error 
of this approximation is less than 2**-60.3. The limits of this range 
and the value of the origin T were chosen to minimize the hexadecimal 
rounding errors. 

ERF(x) = l-ERFC(x), 1/256 ^ ERFC(x) < 0.1573 

Casfa 3: 2.040452 < x < 13.306 

Compute ERFC(x) by the following approximation: 

ERFC(x) = EXP(-z)*F/x 

where z = x**2 

and F = c +di/(z'»-Ci)+da/(z+Ca) + .. . .+d^/(z+C7) 

The coefficients of F were obtained by transforming a minimax rational 
approximation of the function f(w) = ERFC (x)*x*EXP(x**2) in absolute 
error over the range 13.306**-2 < w < 2.040452**-2 of the form 

f(w) = (ao'»'ai*w+aa*w**2+. ...+a7*w**7)/ 

(bo+bi*w+ba*v«**2+. . . .+b6*w**6+w**7) 

where w = x**-2 . The absolute error of this approximation is less than 
2**-57.9. 

If 2.040452 < X < 6.092368 then ERF(x) = l-ERFC(x) 

If 13.306 > X ^ 6.092368 then ERF(x) = 1 

Case 4; x ^ 13.306 

Results 1 and are returned for iRF(x) and ERFC(x) respectively. 

Case 5 : x < 

ERF(x) = -ERF(-x) 
and ERFC(x) = 2-ERFC(-x). 
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Linkage 

Rl = A(PLIST) 
PLIST = A(x) 

A (target) 

Calls 

IBMBMBL - EXE (long float real). 

Called Ey 
Compiled code. 

lEMEMCS - ERF, ERFC (Short Float Real ) 

Function 

To calculate the error function of x or the complement of this function. 
The module has two entry points: 

lEMBMCSA I ERF 

lEMEMCSE : ERFC 

Method 

Case 1; < x < 1 

Compute ERF(x) by the following approximation: 

ERF(x) = x*(ao+aj.*x**2+aa*x**U + +a5*x**10) 

The coefficients were obtained by the minimax approximation in 
relative error of ERF(x)/x as a function of x**2 over the range < 
x**2 < 1. The relative error of this approximation is less than 2**- 
2U.6. 

ERFC(x) = l-ERF(x) 

Case..2; 1 < x < 2.040452 

Compute ERFC(x) by the following approximation: 

ERFC(x) = bo+bi*z+ba*z**2+ +b9*z**9 

where z = x-T and T = 1.709472. The coefficients were obtained by the 
minimax approximation in absolute error of the function f(z) = 
ERFC(z+T) over the range, -0.709472 < z < 0.33098. The absolute error 
of this approximation is less than 2**-31.5. The limits of this range 
and the value of the origin T were chosen to minimize the hexadecimal 
rounding errors. 

ERF(x) = l-ERFC(x), 1/256 < ERFC(x) < 0.1573 
Case 3; 2.040452 < x < 13.306 
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Ccirpute ERFC(x) by the following approximation: 

ERFC(x) = EXP(z)*F/x 

where z = x**2 

and f = Co + (Ci.+Ca*z+C3*z**2)/ (djL*z+da*z**2+z**3) 

The coefficients of F were obtained by transforming a mininiax rational 
approximation of the function f (w) = ERFC(x) *x*EXP(x**2) in absolute 
error over the range 13.306**-2 < w < 2.0U0a52**-2 of the form 

f(w) = (ao +ai*w+a2*w**2+a3*w**3)/(bo+bi*w+w**2) 

where w = x**2. The absolute error of this approximation is less than 
2**-26.1. 

If 2.040452 < X < 3.919206, ERF(x) = 1 - ERFC(x) 

If 13.306 > X ^ 3.919206, ERF(x) = 1 

Case U: x > 13.306 

Results 1 and are returned for ERF(x) and ERPC(x) respectively. 

Case 5; x < 

ERF(x) = - ERF(-x) 
and ERFC(x) = 2 - ERFC(-x). 

Linkage 

Rl = A(PLIST) 
PLIST = A(x) 

A(target) 

Calls 

IBMBMBS - EXP (short float real). 

Called By 
Compiled code. 



IBMBMDL ~ LOG, L0G2, LCGlO (Long Float Real ) 

Function 

To calculate the logarithm of x to the base e, 2, or 10. The module has 
three entry points: 

IBMBMDLA: LOG 

lEMBMDLB: L0G2 
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lEMBMDLC t LOGIO 

Method 

Let X = 16**p*2** (-q)*ir where p is the exponent, q is an integer such 
that < q < 3, and 1/2 < m < 1. 

Two constants, a (= base point) and b (=-L0G2(a)), are defined as 
fellows: 

1/2 < m < 1/SCBT(2): a = 1/2, b = 1 

1/SQRT(2) <n\<l: a = l, b=0 

Let y = (ro - a)/(ni + a). 

Then m = a*(l + y)/(l - y) and AES(y) < 0.1716. 

Now X = 2**(4*p - q - b)*(l + y)/(l - y) . Therefore: 

LOG(x) = (4*p - q - b)*L0G(2) + LOG( (1+y)/ (1-y) ) 

To obtain LOG( (l+y)/(l-y) ) , w = 2*y = (m-a)/(0.5n)+0.5a) is computed and 
the following approxireation is then performed: 

LOG((l+y)/(l-y)) = w*(c + Ci*w**2* (w**2 

+C2+C3/(W**2+C«»+C5/(W**2+C6)))) 

The coefficients were obtained by the minimax rational approximation of 
LOG( (l-»-y)/(l-y))/(2*y) , in relative error, over the range y**2 < 
0.029U4 under the constraint that the first term shall be 1. The 
maximum relative error of this approximation is less than 2**-60.55. 

L0G2(x) or LOGlO(x) is calculated by multiplying the result by L0G2(e) 
or LOGIO (e) respectively. 

Error and Exceptional Conditions 

The ERROR condition is raised if x < 0. 

Linkage 

Rl = A(PLIST) 
PLIST = A(x) 

A (target) 

Called Ey 

Compiled code. Entry point lEMBMDLAdog to base e) is also called by: 

IBMBMLL - ATANH (long float real). 

IBMBMYL - General exponentiation (long float real). 

lEMEMYY - General exponentiation (long float complex) . 

IBMBMDY - LOG (long float complex) . 
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IBMBMDS - LOG, L0G2, LOGlO (Short Float Real) 

Functior 

To calculate the logarithm of x to the base e, 2, or 10. The module bas 
three entry points: 

IBMBMDSA : LOG 

IBMEMDSB; LOG 2 

lEMBMDSC ; LOGIO 

Method 

Let X = 16**p*2**(-q)*ro where p is the exponent, q is an integer such 
that < q < 3, and 1/2 < m < 1. 

Two constants, a (= fcase point) and b ( = -L0G2(a)), are defined as 
fellows : 

1/2 < m < 1/SQFT(2): a = 1/2, b = 1 

1/SQRT(2) < m < 1: a = 1, b = 

Let y = (ra-a)/(ra+a). 

Then m = a*(l+y)/ (1-y) and AES(y) < 0.1716. 

Now X = (2**(a*p-q-b))*((l+y)/(l-y)). Therefore: 

LOG(x) = (4*p-q-b)*LCG(2) + LOG ( (1+y)/ (1-y) ) 

TO obtain LOG( (l+y)/(l-y) ) first w = 2*y (ra-a)/(0.5m+0.5a) is computed. 
The following approximation is performed: 

LOG ( (1+y)/ (1-y)) = w*(Co + Cj.*w**2/(C2 - w**2)) 

The coefficients were obtained by the iriniroax rational approximation of 
LOG( (1+y)/ (l-y))/(2*y) , in relative error, under the constraint that the 
first term (Cq) shall be one. The maximum relative error of this 
approximation is less than 2**-25.33. 

L0G2(x) or LOGlO(x) is calculated by multiplying the result by L0G2 (e) 
or LOGIO (e) respectively. 

Error and Exceptional Conditions 

The ERROR condition is raised if x < 0. 

Linkage 

Rl = A(PLIST) 
PLIST = A(x) 

A (target) 

called By 

compiled code. Entry point lEMBMDSAdog to base e) is also called by: 

IBMEMLS - ATANH (short float real). 

IBMBMYS - General exponentiation (short float real) . 
lEMEMYX - General exponentiation (short float complex). 
IBMBMDX - LOG (short float complex). 

Licensed Material - Chapter 7: Computational Routines 145 

Property of IBM 



lEMEMDX - LOG (Short Float Complex) 



Function 



To calculate the principal value of the natural logarithm of z. The 
principal value is that result satisfying the condition: 

-pi < imaginary part of result ^ pi 

Method 

Let LOG(x+yI) = a+bl. 

Then a = LOG (ABS(x+yI) ) and b = ATAN{y,x) 

LOG(AES(x+yI)) is computed as follows: 

Let Vi = MAX(ABS(x) ,ABS(y)) 

and Va = MIN(ABS(x) , ABS(y) ) 

Let t be the exponent of v^. (i.e., v^. = m*16**t, 1/16 < m <.l) 

Let tj. = t if t < 

or ti = t-1 if t> 

and s = 16**ti 

Then LOG(ABS(x+yI)) = 4*ti*LOG(2)+ LOG( (Vi/s)**2+ (v2/s)**2)/2 

Computation of Vi./s and v^/s are carried out by suitable adjustment of 
the characteristics of v^ and v^ .If v^/s « 1, it is taken to be 0. 

Error and Exceptional Conditions 

The ERROR condition is raised in the called real ATAN routine IBMBMKS if 
X = y = 0. 

Linkage 

Rl = A(PIIST) 
PLIST = A(z) 

A (target) 

calls 

IBMBMDS - LOG (short float real). 
IBMBMKS - ATAN (short float real). 

called By 

Compiled code. 

IBMBMYX - General exponentiation (short float complex). 
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lEMBMDY - LO G (Long Floa t Complex) 

Function 

To calculate the principal value of the natural logarithm of z. The 
principal value is that result satisfying the condition 

-pi < imaginary part of result < pi 

Method 

Let LOG(x+yI) = a+bl. 

Then, a = LOG(ABS(x+yI) ) and b = ATAN(y,x) 

LOG(ABS(x+yI)) is computed as follows: 

Let Vi = MAX(AES(x) ,AES(y)) and 

Va = MIN(ABS(x),ABS(y)) 

Let t be the exponent of Vj. (i.e., v^ = m*16**t, 1/16 < m < 1) 

Let ti = t if t < 

or tx = t-1 if t > 

and s = 16**ti 

Then LOG (ABS (x+yl ) ) = U*ti*L0G(2)+ LOG ( (v^/s) ♦*2+ (Va/s) **2)/2 

Computation of v^/s and v^/s are carried put by suitable adjustment of 
the characteristics of Vj. and v^ in particular, if v^/s « 1, it is 

taken to be 0. 

Error and Exceptional Conditions 

The ERROR condition is raised in the called real ATAN routine IBMBMKL if 
X = y = 0. 

Linkage 

Rl = A(PLIST) 
PLIST = A(z) 

A (target) 

Calls 

IBMBMDL - LOG (long float real). 
IBMBMKL - ATAN (long float real). 

Called By 

Compiled code. 

lEMBMYY - General exponentiation (long float complex) . 
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lEMBMGL " SIN, SIND, CQS^ COSD (Long Float Real ) 

Function 

To calculate sin x or cos x where x is in radians or degrees. The 
module has four entry points: 

IBMBMGLA: SIN 

IBMBMGLBs SIND 

IBMBMGIC: COS 

IBMBMGLD; COSD 

Method 

Let y = ABS(x)/(pi/4) for x in radians, 
or y = ABS(x)/45 for x in degrees, 
and y = q + r, q integral, < r < 1. 

Take qa. == q for SIN or SIND with positive or zero argument, 

q^ = q + 2 for COS or COSD, 

q^L = q + 4 for SIN or SIND with negative argument, 

and qa = M0DCqi,8) . 

Since COSCx) ^ SIN(ABS(x) + pi/2) 
and SIN(~x) = SIN(ABS(x) + pi) , 

it is only necessary to find 

SIN(pi/4*(q2 + r)), for < qa < 7. 

Therefore compute: 

SIN(pi/4*r), if qa = or 4, 

C0S(pi/4*(l - r)), if qa = 1 or 5, 

C0S(pi/4*r), if qa = 2 or 6, 

SIN(pi/U*(l - r)) if qa = 3 or 7. 

SIN(pi/4*ri)/ri, where r^. is r or (1 - r) , is computed by using the 
Chebyshev interpolation polynomial of degree 6 in ra.**2, in the range 
< rx**2 < 1, with maximum relative error 2**(-58). 

C0S(pi/4*ri) is computed by using the Chebyshev interpolation polynomial"^ 
of degree 7 in Xx**2, in the range < ra.**2 < 1, with maximum relative 
error 2** (-64. 3). 

Finally, if qa ^ 4 a negative sign is given to the result. 

Error and Exceptional Conditions 

The ERROR condition is raised if 

AES(x) > 2**50*K, where K = pi if x is in radians 

or K = 180 if X is in degrees 

Linkage 

Rl = A(PLIST) 
PLIST = A(x) 

A (target) 
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Called By 

Ccirpiled code. Entry points IBMBMGLA(SIN) and IBMBMGLC (CCS) are also 
called by: 

IBMBMBY - EXP (long float complex). 

IBMBMGY - SIN, SINH, COS, COSH (long float complex). 

IBMEMHY - TAN, TANK (long float complex). 



IBMBMGS - SIN, SIND. COS. COSD (Short Float Real) 



Function 

To calculate sin x or cos x, where x is in radians or degrees. The 
module has four entry points: 

IBMBMGSA: SIN 

IBMBMGSB: SIND 

IBMBMGSC ; CCS 

IBMBMGSD: COSD 



Method 

Let k = pi/4 

Evaluate p = AES(x)*(l/k) if x is in radians 

cr p = ABS(x)*(l/U5) if X is in degrees 
using long -precision multiplication to safeguard accuracy. 

Separate p into integer part q and fractional part r, i.e., p = q + r 
where < r < 1. 

Define q^ = q if SIN or SIND is required and x > 0; 
qi = q + 2 if COS or COSD is required; 
qj_ = q ♦ 4 if SIN or SIND is required and x < 0. 

Then for all values of x each case has been reduced to the computation 
of SIN(k*(qj.+r)) = SIN(t) say, where t S 0. 

Let qa = Mcd(qi,8) . 

SIN(t) = SIN(k*r) 

SlN(t) = cos(k*(l-r)) 

SIN(t) = COS(k*r) 

SIN(t) = SIN(k*(l-r)) 

SIN(t) = -SIN(k*r) 

SIN(t) = -COS(k*(l~r)) 
if qa = 6, SIN(t) = -COS(k*r) 
if qa = 7, SIN(t) = -SIN(k*(l-r)). 

Thus it is necessary to compute only SIN(k*ri) or COS(k*ri.); where r^. = 
r or 1 - r and < r^ ^ 1; as follows: 

1. SIN(k*ri) = ri*(ao +airi**2+aari**U+a3ri**6) 

The coefficients were obtained by the Chebyshev interpolation. The 
maximum relative error is less than 2**-28.1. 
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If 


qa = 0, 


if 


qa = i# 


If 


qa = 2, 


If 


qa = 3, 


If 


qa = 4, 


If 


qa = 5, 



2. COS(k*rj.) = l+biri.**2+b2ri**4+b3ri**6 

The coefficients were obtained by a variation of the rtiinimax 
approximation which provides partial rounding for the short 
precision computation. The raaximum absolute error is 2**-2U.57. 

Error and Exceptional Conditions 

The EPRCR condition is raised if 

ABS(x) > 2**18*K, where K = pi if x is in radians 

or K = 180 if x is in degrees 

Linkage 

Rl = A(PLIST) 
PLIST = A(x) 

A (target) 

Called By 

Compiled code. Entry points IBMBMGSA(SIN) and IBMBMGSC (COS) are also 
called by: 

IBMBMBX - SIN (short float complex). 

IBMBMGX - SIN, SINK, COS, COSH (short float complex). 

lEMBMHX - TAN, TANH (short float complex). 



IBMBMGX ~ SIN, SINH, COS, COSH (Short Float Complex ) 

Function 

To calculate sin z, hyperbolic sin z, cos z, or hyperbolic cos z. The 
module has four entry points: 

IBMBMGXA: SIN 

IBMBMGXB ; SINK 

IBMBMGXC ; CCS 

IBMBMGXD: COSH 

Method 

Let z = X + YI. 

Then REAL(SIN(z)) = SIN(x) *COSH(y) 
and IMAG(SIN(z)) = CCS(x)*SINH(y) ; 

REAL(COS(z)) = COS(x)*COSH(y) 
and IMAG(CCS(z)) = -SIN(x)*SINH(y) ; 

REAL(SINH(z)) = COS(y )*SINH(x) 
and IMAG(SINH(z)) = SIN (y) *COSH(x) ; 

REAL(COSH(z)) = CCS (y) *COSH (x) 
and IMAG(COSH(z)) = SIN(y)*SINH(x) . 
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To avoid making calls to evaluate SINH and COSH separately, and thus 
frequently having to evaluate EXP twice for the same argument, SINH(u) 
is computed as follows: 

Case 1: u > 0.3465736 

SINH(u) = (EXP(u) - l/EXP(u))/2. 

Case 2; < u < 0.3U65736 

SINH(u)/u is approximated by a polynomial of the form aO + aj.*u**2 + 
a^+u**^ (which has a relative error of less than 2**-26.18). The 
coefficients were obtained by the minimax approximation in relative 
error of SINH(x)/x over the range < x**2 < 0.12011 under the 
constraint that the first term shall be exactly 1. 

Case 3: u < 

SINH(u) = -SINH(-u). Then 

COSH(u) = SINH(ABS(u)) + 1/EXP (ABS(u) ) . 

Error and Exceptional Conditions 

The ERRCR condition is raised in the called real SIN routine IBMBMGS if 

ABS(v) > 2**18*pi 

where v = x for entry points lEMEMGXA and C (SIN and COS) 
and V = y for entry points IBMBMGXB and D (SINH and COSH). 

The OVERFLOW condition can occur in the called EXP routine IBMBMBS. 

Linkage 

Rl = A(PLIST) 
PLIST = A(2) 

A (target) 

Calls 

lEMBMGS - SIN, COS (short float real). 
IBMBMBS - EXP (short float real). 

Called By 
Ccirpiled code. 



IBMBMGY ~ SIN, SINH^ COS, COSH (Long Float Complex ) 

Function 

To calculate sin z, hyperbolic sin z, cos z, or hyperbolic cos z. The 
module has four entry points: 



Licensed Material - Chapter 7: Computational Routines 151 

Property of IBM 



lEMBMGYA; SIN 

lEMEMGYE: SINH 

lEMEMGYC: COS 

lEMEMGYD: COSH 

Method 

Let z = X + yl . 

Then REAL(SIN(z)) = SIN(x)*GCSH(y) 
and IMAG(SIN(z)) = COS (x) *SINH (y) ; 

REAL(COS(z)) = COS(x)*CCSH(y) 
and IMAG(COS(z)) = -SIN(x) *SINH (y) ; 

REAL(SINH(2)) = CO£(y)*SINH(x) 
and IKAG(SIKH(z) ) = SIN(y ) *COSH(x) ; 

REAL(COSH(z) ) = COS(y)*COSH(x) 
and Ii^AG(CCSH(z) ) = SIN(y)*SINH (x) . 

To avoid making calls to evaluate SINH and COSH separately, and thus 
frequently having to evaluate EXP twice for the same argument, SINH(u) 
is computed as follows: 

Case_l: u > 0.481212 

SINH(u) = (EXP(u) - l/EXP{u))/2 

Case_2: < u < 0.481212 

SINH(u)/u is approximated by a polynomial of the fifth degree in u**2 
which has a relative error of less than 2**-56.07. The coefficients 
were obtained ty the rainiraax approximation in relative error of 
SINH(x)/x over the range < x**2 < 0.23156 under the constraint that 
the first term shall be exactly 1. 

Case_3: u < 

£INH(u) = -SINH(-U). Then 

COSHCu) = SINH(ABS(u)) + 1/EXP (ABS( u) ) . 

Error and Exceptional Conditions 

The ERROR condition is raised in the called real SIN routine IBMBMGL if 

AES(v) > 2**50*pi 

where v = x for entry points IBMEMGYA and C (SIN and COS) 
and V = y for entry points IBMBMGYB and D (SINH and COSH). 

The OVERFLOW condition can occur in the called EXP routine IBMBMBL. 

Linkage 

Rl = A(PLIST) 
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PLIST = A(2) 

A(target) 

Calls 

lEMBMGL - SIN, COS (long float real). 
IBMBMEL - EXP (long float real). 

Called By 

CcniFiled code. 



IBMBMHL - TAN, TAND (Long Float Real) 
Function 

To calculate tan x, where x is in radians or degrees. The module has 
two entry points: 

IBMBMHLA; TAN 

IBMBMHLB ; TAND 

Method 

Evaluate p = (4/pi)*ABS(x) if x is in radians 
or p = (l/i»5)*ABS(x) if X is in degrees. 

Let q and r be respectively the integral and fractional parts of p. 

If q is even, put s = r; 
if q is odd, put s = 1 - r. 

Let qi = MOD(q,a). Then 

If q± = 0, TAN(ABS(x>) = TAN(pi*s/4) 

If qj. = 1, TAN(ABS(x)) = C0T(pi*S/4) 

If qj. = 2, TAN(ABS(x)) = -CCT(Fi*s/4) 

If qa. = 3, TAN(ABS(X)) = -TAN(pi*S/U) 

Compute TAN(pi*s/4) and C0T(pi*s/4) as the ratio of two polynomials: 

TAN(Fi*s/4) = s*P(s**2)/C(s**2)) 
C0T(pi*s/4) = Q(s**2)/(s*P(s**2)) 

where both P and Q are polynoirials of degree 3 in s**2. The 
coefficients of P and Q were obtained by the minimax rational 
approximation (in relative error) of TAN(pi*s/U) of the indicated form. 
The maxiirum relative error of this approximation is 2**-55.6. 

Finally, if x < 0, TAN(x) = -TAN(ABS(x)) . 

Error and Exceptional Conditions 

The OVERFLOW condition can occur in this module. 

The ERROR condition is raised if 

ABS(x) > 2**50*K, where K = pi if x is in radians 

or K = 180 if X is in degrees « 
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Linkage 

Rl = A(PLIST) 
PLIST = A(x) 

A(target) 

Called By 
Compiled code. 

lEMBMHS ~ TAN, TAND (Short Float Real ) 

Function 

To calculate tan x, where x is in radians or degrees. The module has 
two entry points: 

lEMBMHSA; TAN 

lEMBMHSB; TAND 

Method 

Evaluate p = (U/pi)*ABS (x) if x is in radians 

or p = (l/45)*ABS(x) if x is in degrees, 

using long-precision multiplication to safeguard accuracy. 

Let q and r be respectively the integral and fractional parts of p. 

If q is even, put s = r; 
if q is odd, put s = 1-r. 

Let qj. = M0D(q,4). Then 

If qx = 0, TAN(AES(x)) = TAN(pi*s/a) 

If qj. = 1, TAN(ABS(x)) = COT(pi*S/U) 

If qx = 2, TAN(AES(x)) = -CCT(pi*s/4) 

If qx = 3, TAN(ABS(x)) = -TAN(pi*S/U) 

Compute TAN(pi*s/U) and COT{pi*s/U) as the ratio of two polynomials: 

TAN(pi*s/4) = s*P(u)/Q(u) 

COT(pi*s/U) = Q (u)/(s*p(u)) 

where u = s**2/2 

P(u) = -8.460901 + u 

and Q(u) = -10.772754 + 5.703366*u - 0.159321*u**2 

These coefficients were obtained by the minimax rational approximation 
in relative error of the above form. The maxiroum relative error of 
this approxiroation is 2**- 26. The variable u, rather than s**2, was 
chosen for P and Q in order to improve the rounding effect of the 
coefficients. 
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Finally, if x < 0, put 
TAN(x) = -TAN(AES(x)). 

Error and Exceptional Conditions 

The OVERFLOW condition can occur in this module. 

The ERROR condition is raised if 

ABS(x) > 2**18*K, where K = pi if x is in radians 

or K = 180 if X is in degrees, 

Linkage 

Rl = A(PLIST) 
PLIST = A(x) 

A(target) 

Called Ey 
Compiled code. 



lEMBMHX - TAN. TANH (Short Float Complex) 



Function 

To calculate tan z or hyperbolic tan z. The module has two entry 
points: 

IBMBMHXA; TAN 

IBMBMHXB: TANH 



Method 

Let z = X + yl. 

Then REAL (TAN (z)) = SIN(2*x) /(C0S(2*x) + COSH (2*y) ) . 

IMAG(TAN(z)) = SINH(2*y)/(COS(2*x) + C0SH(2*y)). 
and TANH(z) = -(TAN(zI))I 

Error and Exceptional Conditions 
The OVERFLOW condition can occur in this module. 
The ERROR condition is raised in the called module IBMBMGS if: 
ABS(u) > 2**18*pi 



where u = 2*x for entry point" IBMBMHXA, 
u = 2*y for entry point IBMBMHXB. 
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OVERFLOW can occur in module lEMBMBS. 



Linkage 



Rl = A(PLIST) 
PLIST = A(z) 

A (target) 



Calls 



IBMBMGS - SIN, SIND, COS, COSD (short float real) 
IBMBMIS - SIKH, COSH (short float real). 



Called By 
Compiled code. 

IBMBMHY -,JAN,. TANH, jLona^^ M Complex ) 

Function 

To calculate tan z or hyperbolic tan z. The module has two entry 
points: 

lEMBMHYA; TAN 

IBMEMHYE t TANH 

Method 

Let z = X + yl. 

Then REAL(TAN(z)) = SIN(2*x)/(COS(2*x) + C0SH(2*y)). 

IMAG(TAN(z)) = SINK (2*y)/ (COS (2*x) + C0SH(2*y)). 
and TANH(z) = "(TAN(zI))I 

Error and Exceptional Conditions 

The OVERFLOW condition can occur in this module. 

The ERROR condition is raised in the called module IBMBMGL ifs 
ABS(u) ^ 2**50*pi 

where u = 2*x for entry point IBMBMHYA, 
u = 2*y for entry point IBMBMHYB. 

OVERFLOW can occur in module IBMEMBL. 
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Linkage 

Rl = A(PLIST) 
PLIST = A(z) 

A (target) 

Calls 

IBMBMGL - SIN, SIND, COS, COSD (long float real). 
IBMBMIL - SINK, CCSH (long float real). 

called By 
Compiled code. 

IBMBMIL - Sim, COSH (long Float Real ) 

Function 

To calculate hyperbolic sin x or hyperbolic cos x. The module has two 
entry points: 

lEMEMILA: SINK 

lEMBMILB: COSH 

Method 

Case 1: ABS(x) < 0.88137U 

SINH(x) = Co*x + Ci*x**3 + + Ci6*x**13 

COSH(x) = EXP(x)/2 + 0.5/EXP(x) 

The coefficients C were obtained by the minimax approximation in 
relative error of SINH(x)/x as the function of x**2. The maximum 
relative error of this approximation is 2**-55.7. 

Case 2; x > 0.881374 

SINH(x) = EXP(x)/2 - 0.5/EXP(x), 

COSH(x) = EXP(x)/2 + 0.5/EXP(x). 

These two versions of EXP(x)/2 ± 0.5/EXP(x) are preferable to the 
equivalent versions of (EXP(x) - l/EXP(x))/2 because, in floating-point, 
0.5 has three more significant bits than 1.0. 

case 3: x < -0.881374 

The computation is reduced to case 2 by 

SINH(x) = -SINH(ABS(x)). 

COSH(x) = EXP(x)/2+0.5/EXP(x) 
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Error and Exceptional Conditions 

The OVERFLOW condition can occur in the called routine IBMBMBL. 

Linkage 

Rl = A(PLIST) 
PLIST = A(x) 

A (target) 

calls 

IBNBMBL - EXP (long float real) . 



Called By 

IBMBMHY - TAN, TANH (long float complex). 
Ccirpiled code. 



IBMBMIS - SINH,...COSH (S hort Float Real ) 

Function 

To calculate hyperbolic sin x or hyperbolic cos x. The module has two 
entry points : 

IBMBMISA; SINK 

IBMBMISB; COSH 

Method 

Case 1; ABS(x) < 1 

SINH(x) = x+Ci*x**3+C2*x**5+C3*x**7 

COSH(x) = EXP(x)/2+0.5/EXP(x) 

The coefficients c were obtained by the minimax approximation in 
relative error of SINH(x)/x as the function of x**2. The maximum 
relative error of this approximation is 2**-25.6. 

Case 2 ; x > 1 

SINH(X) = EXP(x)/2 - 0.5/EXP(x). 

COSH(x) = EXP(x)/2 + 0*5/EXP(x). 

These two versions of EXP(x)/2 ± 0.5/EXP(x) are preferable to the 
equivalent versions of (EXP(x) - l/EXP(x))/2 because, in floating-point,, 
0.5 has three more significant bits than 1-0. 

Case 3 : x < -1 

The computation is reduced to case 2 by 
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SINH(x) = -SINH(ABS(x)) 
COSH(x) = EXP(x)/2+0.5/EXP(x) 

Error and Exceptional Conditions 

The OVERFLOW condition can occur in the called routine IBMBMBS. 

Linkage 

Rl = A(FLIST) 
PLIST = A(x) 

A (target) 

Calls 

IBMBMBS - EXP (short float real). 

Called By 

lEMBMHX - TAN, TANK (short float complex) 
Compiled code. 

IBMEMJL - TANH (Long Float Real ) 

FunctiCh 

To calculate the hyperbolic tangent of x. 

Method 

Case_J,: ABS(x) < 2**-28 

Return x as result. 

Case_2: 2**-28 < ABS(x) < 0.54931 

Use a transformed rainimax approximation of the form: 

TANH(x)/x = c + dj.*x**2/(x**2+Ci) + da/(x**2+C2)-i-d3/ (x**2+C3) 

The minimax of relative error was taken over the range x**2 < 0.30174 
under the constraint that the first term is 1 . The maximum relative 
error is 2**-63. 

Case 3: 0.54931 < x < 20.101 
TANH(x) = 1 - 2/(EXP(2*x)+l) 

Case 4; x > 20.101 
Return result 1 . 
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Case .5: x < -0.5^931 
TANH(x) = -TANH(-X) 

Linkage 

Rl = A(PLIST) 
PIIST = A(x) 

A(target) 

Calls 

IBMBMBL - EXP (long float real). 

Called By 
Compiled code. 

IBMBMJS - TANH (Short Float Real ) 

Function 

To calculate the hyperbolic tangent of x. 

Method 

Case 1: ABS(x) < 2**-12 
Return x as result. 

Case 2; 2**-12 < ABS(x) < 0.7 

Use a transformed continued fraction of the form: 

TANH(x)/x = 1 - x**2*(.0037828+.8145651/(x**2+2. 471749)) 

The coefficients of this approximation were obtained by taking the 
minimax of relative error, over the range x**2 < 0.49, of approximations 
of this form under the constraint that the first terra shall be 1. The 
maximijm relative error of this approxiiration is 2**-26.4. 

Case 3; 0.7 < x < 9.011 

Dse TANH(x) = 1 - 2/(EXP(2*x) + 1). 

Case 4; x > 9.011 
Return result 1 . 

Case 5 : x < -0.7 
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TANH(x) = -TANH(-x). 

Linkage 

Rl = A(PLIST) 
PLIST = A(x) 

A (target) 

Calls 

IBMBMBS - EXP (short float real). 

Called By 
CciTipiled code. 

IBMBMKL - ATANff ATAND (Long Float Real ) 

Function 

To calculate arctan x or arctan(y/x). The result ranges are: 

Arctan x (radians) - ± pi/2 

Arctan (y/x) (radians) - ± pi 

Arctafi .: (degrees) - ± 90<* 

Arctan (y/x) (degrees) - ± 180® 

The module has four entry points: 

IBMBMKLA: ATAN(x) 

IBMBMKIB : ATAND (x) 

IBMBMKIC: ATAN(y,x) 

IBMBMKLD: ATAND(y,x) 

Method 

1. ATAN(y,x) 

If x = or ABS(y/x) > 2**56, the answer SIGN(y)*pi/2 is returned 
except for the error case x = y = 0. Otherwise 

ATAN(y,x) = ATAN(y/x) if x > 

or ATAN(y,x) = ATAN(y/x) + SIGN(y)*pi if x < 

Hence the computation is now reduced to the single argument case. 

2. ATAN(x) 

The general case may be reduced to tne xanae < x < 1 since 

ATAN(-X) = - ATAN(x) 
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and ATAN(l/AES(x)) = pi/2 - ATAN (AES (x) ) . 

A further reduction to the range ABS(x) < TAN (pi/12) is made by 
using 

ATAN(x) = pi/6 + ATAN((SCRT(3)*x - l)/(x + SQRTO))) 

Care is taken to avoid the loss of significant digits in computing 
SQRT(3)*x - 1. 

For the basic range ABS(x) < TAN(pi/12), use a continued fraction of 
the font! 

ATAN(x)/x = l+u*(b -ai/(ba.+u-a2/(b2+u-a3/(b3+u)))) 

where u = x**2. 

The relative error of this approximation is less than 2**-60.7. 

The coefficients of this formula were derived by transforming a 
miniirax rational approximation in relative error over the range < 
u < 0.071797 for ATAN(x)/x of the following form: 

ATAN(x)/x = a + u*((c + Ci*u + C2*u*u + C3*u*u*u)/(d + dj.*u 
+ d2*u*u + u*u*u)). 

under the constraint that a = 1. 

3. ATANE(x) and ATAND(y,x) 

The treatment is as above with the addition of a final conversion of 
the result to degrees. 

Error and Exceptional conditions 

Entry Points IBMBMKLC and D; 

The ERROR condition is raised if x = y = 0. 

Linkage 

Entry Points lEMBMKIA and B : 

Rl = A(PLIST) 
PLIST = A(x) 

A (target) 

Entry Points lEMBMKIC and D : 

Rl = A (PLIST) 
PLIST = A(y) 

A(x) 

A (target) 

Called By 

compiled code. In addition, entry point IBMBMKLC is called by: 

lEMBMDv - LOG (long float complex) . 
IBMBMKY - ATAN, ATANH (long float complex). 
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lEMEMKS - ATAN, ATAND (Short Float Real) 

Function 

To calculate arctan x or arctan(y/x). The result ranges are: 

Arctan x (radians) - ± pi/2 

Arctan (y/x) (radians) - ± pi 

Arctan x (degrees) - ± 90° 

Arctan (y/x) (degrees) - ± 180° 

The ir.odule has four entry points: 

lEMBMKSA: ATAN (x) 

IBMBMKSE: ATAND(x) 

lEMBMKSC ; ATAN(y,x) 

lEMEMKSC: ATAND(y,x) 

Method 

1. ATAN(y,x) 

If X = or ABS(y/x) > 2**24, the answer SIGN(y)*pi/2 is returned 
except for the error case x = y = 0. Otherwise 

ATAN(y,x) = ATAN(y/x) if x > 

or ATAN(y,x) = ATAN(y/x) + SIGN(y)*pi if x < 0. 

Hence the computation is now reduced to the single argument case. 

2. ATAN(x) 

The general case may te reduced to the range < x < 1 since 

ATAN(-x) = -ATAN(x), and 

and ATAK(l/AES(x)) = pi/2 - ATAN(AES(x) ) . 

A further reduction to the range AES(x) < TAN (pi/12) is made by 
using 

ATAN(x) = pi/6 + ATAN( (SgPT(3)*x - l)/(x + SQRT(3))) 

Care is taken to avoid the loss of significant digits in computing 
SQJRT(3)*x - 1. 

For the basic range ABS(x) < TAN(pi/12), use an approximation 
formula of the form 

ATAN(x)/x = a + b*x**2 * c/(d ■»• x**2) 

with relative error less than 2**-27.1. 

3. ATAND(x) and ATAND(y,x) 

The treatment is as above with the addition of a final conversion of 
the result to degrees. 
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Error and Exceptional conditions 

Entry Points IBMBM KSC an d D; The ERROR condition is raised if x=y=0, 

Linkage 

Entry Points lEMBMKSA, IBMBMKSB : 

Rl = A(PLIST) 
PLIST - hix) 

A (target) 

Entry Points IBMBMKSC, IBMEMKSD; 

Rl = A (PLIST) 
PLIST = A(y) 

A(X) 

A (target) 

Called By 

Compiled code. In addition, entry point IBMBMKSC is called by: 

IBMBMDX - LOG (short float complex). 
lEMBMKX - ATAN, ATANH (short float complex). 



IBMBMKX - ATAM, ATANH (Short Float Complex ) 

Function 

To calculate arctan z or hyperbolic arctan z. The module has two entry 
points: 

IBMBMKXA: ATAN 

IBMBMKXB: ATANH 



Method 

Let z = X + yl. 

Then 

REAL ( ATANH (z)) = (ATANH (2*x/ (1 + x*x + y*y)))/2 
IMAG ( ATANH (z)) = (ATAN ( (2*y) , (1 - x*x - y*y)))/2 
and ATAN(z) = -(ATANH(zI))I 

Error and Exceptional Conditions 

ATAN: The ERROR condition is raised if z = ±11 

ATANH: The ERROR condition is raised if z = ±1 
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Linkage 

Rl = A(PLIST) 
PLIST = A(z) 

A (target) 

Calls 

IBMBMKS - ATAN (short float real). 
IBMBMLS - ATANH (short float real). 

Called By 
Compiled code. 

lEMBMKY - ATAN^ A^ANH (Long Float Complex ) 

Function 

To calculate arctan z or hyperbolic arctan z. The module has two entry 
points: 

lEMBMKYA: ATAN 

IBFEMKYB: ATANH 

Method 

Let z = X + yl. 

Then 

REAL(ATANH(2)) = (ATANH(2*x/(l + x*x + y*y)))/2 
IMAG (ATANH (z)) = (ATAN ( (2*y) , (1 - x*x - y*y)))/2 
and ATAN(z) = -(ATANH(zI))I 

Error and Exceptional Conditions 

ATAN: The EEROR condition is raised if z = ±11. 

ATANH: The ERROR condition is raised if z = ±1. 

Linkage 

Rl = A (PLIST) 
PLIST = A(z) 

A (target) 

Calls 

lEMEMKL - ATAN (long float real). 
lEMEMIL - ATANH (long float real). 
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Called By 
Ccmpiled cede. 

IBMBMLL - ATANH (Long Float Real) 

Function 

To calculate hyperbolic arctan x. 

Method 

Case_l: ABSCxX 0.25 

Use a Chebyshev polynomial of degree 8 in x**2 to compute ATANH(x)/x. 

Case 2; 0.25 < ABSCxXl 
Compute ATANH(x) as: 

ATANH(x) = -SIGN(x)*0.5*LCG((0.5 - AES (x/2) )/ (0 . 5 + AES(x/2))) 

Error and Exceptional Conditions 

The ERROR condition is raised if if ABS(x) > 1. 

Linkage 

Rl = A(PLIST) 
PLIST = A(x) 

A (target) 

Calls 

IBMEMDL - LOG (long float real). 

Called By 

ccmpiled code. 

IBMBMKX - ATAN, ATANH (long float complex). 

IBMBMLS - ATANH (Short Float Real) 

Function 

To calculate hyperbolic arctan x. 

Method 

Case_l: ABS(x) < 0.2 
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Use a rational approximation of the form: 
ATANH(x) = X + x**3/(a + b*x**2) 

Case_2: 0. 2 < ABS(x) < 1 
Ccirpute as: 

ATANH(X) = -SIGN(x)*0.5*LOG((0.5 - ABS(x/2) )/ (0.5 + ABS(x/2))) 

Error and Exceptional Conditions 

The ERROR condition is raised if ABS(x) 2: 1. 

Linkage 

Rl = A(PLIST) 
PLIST = A(x) 

A(target) 

Calls 

IBMBMDS - LOG (short float real). 

Called By 

Compiled code. 

IBMBMKX - ATAN, ATANH (short float complex). 



IBMBMML - ASIN, ACQS (Long Float Real) 

Function 

To calculate ASIN x or ACQS x. The module has two entry points: 

IBMBMMLA: ASIN 

lEMEMMLB: ACQS 

Method 

Case_l: < x < 1/2 

CciTipute ASIN(x) by a continued fraction of the form: 

ASIN(x) = X + F*x**3 

VJhere F = Cj. ♦ di/(x**2 + c^ + d2/(x**2 + 03 + d3/(x**2 * c^ * 
d^/(x**2 + Cg)))) 

The coefficients of this formula were derived by transforming the 
minimax rational approximation (in relative error, over the range < 
x**2 < 1/4) for ASIN(x)/x of the following form: 
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ASIN(x)/x = ao + x**2*(ai + a*x**2 + a3*x**4 ♦ a4*x**6 + a5*x**8)/ 
(bo + ba.*x**2 + b2*x**4 + b3*x**6 + x**8) +... 

Minimax was taken under the constraint that a = 1 exactly. The relative 
error of this approximation is less than 2**-57.2. 

ACOS(x) is computed as: 

ACOS(x) = pi/2 - ASIN(x) 

Case_2: 1/2 < x < 1 
Compute ACOS(x) as: 

ACOS(x) = 2*ASIN(SQRT((1 - x)/2)) 
Case 2 is thus reduced to case 1, because within these limits 

< SgRT((l - x)/2) < 1/2 
ASIN(x) is computed as: 

ASIN(x) = pi/2 - ACOS(x) 

Case 3; -1 < x < 

For negative x, ASIN(x) is computed as: 

ASIN(x) = -ASIN(ABS(x)) 
and ACCS(x) is computed as: 

ACOS(x) = pi - ACOS(ABS(x)) 
Case 3 thus reduces to case 1 or case 2. 

Error and Exceptional Conditions 

The ERROR condition is raised if ABS(x) > 1. 

Linkage 

Rl = A(PLIST) 
PLIST = A(x) 

A(target) 

Calls 

IBMBMAI - SQRT (long float real). 

Called By 
Compiled code. 
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IBMBMMS - ASIN, ACQS (Short Float Real ) 

Function 

To calculate ASIN(x) or ACOS(x). The rcodule has two entry points: 

lEMBMMSA ; ASIN 

IBMBMMSB: ACQS 

Method 

Case 1; < x < 1/2 

Ccirpute ASIN(x) by a continued fraction of the form: 

ASIN(x) = X + F*x**3 

where F = di/(x**2 + c^ + d2/(x**2 + Ca)) 

The coefficients of this formula were derived by transforming the 
minimax rational approximation (in relative error, over the range (0 < 
x**2 < 1/4) for ASIN(x)/x of the following form: 



ASIN(x)/x = a + x**2*(ai + a2*x**2)/ (b + bi*x**2 + x**4) + 



Minimax was taken under the constraint that a = 1 exactly. The relative 
error of this approximation is less than 2**-28.3. 

ACOS(x) is computed as: 

ACOS(x) = pi/2 - ASIN(x) 

Case 2 ; l/2<x < 1 

Ccirpute ACOS(x) as 

ACOS(x) = 2*ASIN(SQRT((1 - x)/2)) 

Case 2 is thus reduced to case 1, because within these limits < 
SQRT((1 - x)/2) < 1/2. 

ASIN(x) is computed as: 

ASIN(x) = pi/2 - ACOS(x) 
Case_3: -1 < x<0 
For negative x, ASIlSI(x) is computed as: 

ASIN(X) = -ASIN(ABS(x)) 
and ACCS(x) is computed as: 

ACOS(x) = pi - ACOS(ABS(x)) 
Case 3 thus reduces to case 1 or case 2. 

Error and Exceptional Conditions 

The ERROR condition is raised if ABS(x)>l. 
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Linkage 

Rl = A(FLIST) 
PLIST = A(x) 

A (target) 



Calls 

IBMBMAS - SQRT (short float real) 

Called By 
Compiled code. 



IBMBMOD - ADD (Fixed Decimal ) 



Function 

Entry point IBMBMCDA ; ADD(x,y ,p,q) , where x and y are fixed decimal real 
numbers and (p»q) is the required precision of the result. 

Ent ry poin t IBMBMODB : ADD(zi, Z2,p,q) where Zj. and Za are fixed decimal 
complex numbers and (p,q) is the required precision of the result. 

Method 

Real Arg uments (IBMBMODA) : If both arguments are non-zero, a call to 
module lEMEMUDA is used to shift the argument with the larger scale 
factor to give it the scale factor of the other, and to convert it to 
precision 31. The arguments are then added together, and module 
IBMBMUDA is again called to convert the sum to the specified precision 
and assign it to the target field. If one of the arguments is zero, the 
other is treated as the sumi above. 

Com plex Arguments (IBMBMODB); The real parts of each argument are added 
and the sum is assigned to the target field by using entry point 
IBMBMODA. The imaginary parts are treated similarly. 

Error and Exceptional Conditions 

The FIXEDOVERFLOW or the SIZE condition can occur in the called module 

lEMBMUDA. 



Linkage 

Rl 
PLIST = 



A (PLIST) 

A(x or z±) 

A(DED for X or Zj.) 

A(y or Za) 

A(DED for y or Za) 

A (target) 

A(DED for target) 
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calls 

lEMBMUD - decimal shift-and-load, shift-and-assign. 

Called By 
Ccirpiled cede. 

IBMBMPU - MDITIFLY (Fixed Binary Cogplex ) 

Function 

MULTIPLY (Zi, Z2,p,q) where z, and Za are coirpled fixed-point binary 
numbers, and (E,q) is the required precision of the result. 

Method 

Let the arguments be Zj. = a + bl and Za = c ■«• dl. Then: 

REAL(Zi*Z2) = a*c - b*d 

and IMAG(Zi*Za) = b*c ■•• a*d 

The real and imaginary parts of the product are computed. These numbers 
are then shifted to give them the required scale factor(q). 

The results cf the shifts are tested for FIXEDOVERFLOW and truncated by 
left shifts. 

Error and Exceptional Conditions 

The FIXEDOVERFLOW condition can occur in this module. 

Linkage 

Rl = A(PLIST) 
PLIST = A(Za.) 

A(DED for Zi) 

A(Za) 

A(DED for Za) 

A (target) 

A (DEB for target) 

Called By 
Compiled code. 

IBMBMPV - MULTIPLY (Fixed Decimal Complex) 

Function 

MULTIPLY (Zi,Za,p,q) where z^ and Za are complex fixed-point decimal 
numbers, and (p,q) is the required precision of the result. 



Licensed Material - Chapter 7: Computational Routines 171 

Property of IBM 



Method 

Let Zi = a + bl and z^ = c ♦ dl, then: 

REAL(Zi*Z2) = a*c - b*d. 

and lMAG(zj.*Z2) = b*c + a*d. 

The real and imaginary parts are calculated and then each is assigned to 
the target with precision (p,q) by separate calls to entry point 
lEMBMUEA of the decimal shift and assign module IBMBMUD. 

Error and Exceptional Conditions 

The FIXEDOVERFLOW or the SIZE condition can occur in the called module 
IBMBMUD . 

Linkage 

Rl = A(PLIST) 
PLIST = A(Zjl) 

A(DED for Zj.) 

A(Z2) 

A (DEB for z^) 

A (target) 

A(DED for target) 

Calls 

lEMBMUDA - decimal shift-and-assign 

Called By 
Compiled code. 

IBMBMQ13 - DIVIDE (Fixed Binary Complex ) 

Function 

DIVIDE (zi,Za,p,q) where Zj. and Za are complex fixed-point binary 
numbers, and (p,q) is the required precision of the result. 

Method 

Let Z5. = a ♦ bl, and z^ = c ♦ dl, then; 

REAL(zi./Za) = (a*c + b*d)/(c**2 + d**2) 

and IMAG(Z4/Za) = (b*c - a*d)/(c**2 + d**2) 

The expressions a*c + b*d, b*c -a*d, and c**2 + d**2 are computed with a 
precision of 63. The denominator, c**2 + d**2, is shifted to precision 
31 by either a right or left shift. 
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Two calls are then made to an incorporated subroutine which accepts a 
numerator and shifts it so that it has two insignificant leading digits. 
It then divides by c**2 + d**2 and shifts the quotient to the required 
scale factor (q). 

Error and Exceptional Condition 

The FIXEDOVERFLOW and the ZERODIVIDE conditions can occur in this 
module. 

Linkage 

Rl = A(PLIST) 
PLIST = A(Zi) 

A(DED for Zj.) 

A(Za) 

A(DED for Za) 

A (target) 

A(DED for target) 

Called By 
Compiled code. 

IBMBMQV - DIVIDE (Fixed Decimal Complex) 

Function 

DIVIDE (Zi,Za,p,q) where Zj. and Za are complex fixed-point decimal 
numbers, and (p,q) is the required precision of the result. 

Method 

Let Zx = a + bl, and Za - c + dl, then 

REAL(Zi/Za) = (a*c + b*d)/(c**2 + d**2) 

and IMAG(Zi/Za) + (b*c - a*d)/(c**2 + d**2) 

The expressions a*c + b*d, b*c - a*d, and c**2 + d**2 are computed. 
Leading zeros are removed from the denominator (c**2 + d**2) by 
truncation on the left and a left shift if necessary. If the denominator 
is still more than 15 digits long it is truncated on the right to 15 
digits . 

Two calls are then made to an incorporated subroutine which accepts a 
numerator and shifts it to precision 31 with 2 leading zeros by calling 
IBMBMUD (via entry point IBMEMUDE) . It then divides by c**2 ♦ d**2 and 
calls IBMBMUD (via entry point IBMBMUDA) to assign the quotient to the 
target field with the required precision (p,q). 

Error and Exceptional Conditions 

The ZERODIVIDE condition can occur in this module. 
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The FIXEDOVERFLOW or the SIZE condition can occur in the called module 

lEMEMUE. 

Linkage 

Rl = A(PLIST) 
PLIST = A(Zi) 

A (DEB for Zj.) 

A(Z2) 

A(DED for Za) 

A (target) 

A(DED for target) 

Calls 

lEMBMUD - Decimal shift- and- assign. 

Called By 
Compiled code. 

IBMBMRU - AES (Fixed Binary Complex) 

Function 

To calculate AES(z) = SQRT(x**2 + y**2), where z = x + yl. 

Method 

If X = y, result is x*SQRT(2). Otherwise, 

let XI = MAX(AES(x),ABS(y) 

Yl = MIN(ABS(x) ,ABS(y)) . 

Then ABS(z) is computed as 

X1*SQRT(1 + (Y1/X1)**2), 

where the fixed binary calculation of SCRT(g) for 1 < g < 2 is included 
within the module. 

The first approximation to the square root is taken as 

g/(l+g) + (l+g)/4, 
with maximum relative error 1.8*2**-10. 

One Newton-Raphson iteration gives maximum relative error 1.6**-20, and 
suffices if XI < 2**(15-q) where q is the scale factor of z. 

Otherwise a second iteration is used, with theoretical maximum relative 
error of 1.3*2**-40. 
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Error and Exceptional Conditions 

The FIXEDOVERFLOW condition can occur in this module . 

Linkage 

Rl = A(PLIST) 
PIIST = A(z) 

A(DED for z) 

A (target) 

A(DED for target) 

Called By 
Compiled code 

IBMBMRV - ABS (Fixed Decinial Complex ) 

Function 

To calculate ABS(z) = SQRT(x**2 ♦ y**2) , where z = x + yl. 

Method 

X and y are converted to binary, with appropriate scaling if either 
exceeds 9 significant decimal digits. 

Let XI te the maximum, and Yl the minimum, of the absolute values of the 
two binary numbers thus obtained. 

Then if XI = Yl = 0, result is returned. Otherwise, an approximation 
to ABS(z) is computed as 

X1*SQRT(1 + (Y1/X1)**2), 

where the fixed binary calculation of SQRT(g) for 1 < g < 2 is included 
within the module. 

The first approximation to the square root is taken in the form 

A + B* (1 + g) - A/(l ♦ g) 

with maximum relative error 2.17*10**-4. One Newton-Raphson iteration 
then gives a value with maximum relative error 2.35*10**8. 

Multiplication by XI produces a value for A£S(z) which is rounded and 
converted to decimal, and this suffices if it has not more than 7 
significant decimal digits. Otherwise, this approximation is scaled if 
necessary and used in a final Newton-Raphson iteration for SQRT(x**2 + 
y**2) in decimal, with theoretical maximum relative error 2. 76*10**-16. 

Error and Exceptional Conditions 

The FIXEDOVERFLOW condition can occur in this module. 
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Linkage 

Rl = A(PLIST) 
PLIST = A(2) 

A(DED for Z) 

A (target) 

A (DEB for target) 



Called By 
Ccnipiled code. 

IBMBMRX^ IBMBMRY - ABS (Float Complex) 

Modules 

Argument Nodule 

short float IBMBMRX 
long float IBMBMRY 

Function 

To calculate AES(z) = SQRT(x**2 + y**2) , where z = x + yl 

Method 

Let z = X + yl. 

If X = y = 0, answer is 0. 

Otherwise let Zl = MAX(ABS(x) ,ABS(y)) 

and Z2 = MIN (ABS (x) ,AES(y) ) . 
Then the answer is computed as: 
Z1*SQRT(1 + (Z2/Z1)**2). 

Error and Exceptional Conditions 

The OVERFLOW condition can occur in this module 

Linkage 

Rl = A (PLIST) 
PLIST = A(z) 

A (target) 

Calls 

IBMBMRX calls: 

IBMBMAS - SCRT (short float real). 

IBMBMRY calls: 
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IBMBMAL - SCRT (long float real) 

Called By 
Compiled code. 



IBMBMUD - Shift-and-Assiqn, Shift- and- Load (fixe d Decimal ) 

Function 

Shift-and-assi qn (Entry point IBMBMUDA) : To convert a real fixed 
decimal number from precision (pi, qj.) to precision (pa, qa), where pj. < 
31 and pa < 15. 

Shift-and-load (Entry point IBMBMUDB) ; To convert a real fixed decimal 
number from precision (pj., q^.) to precision (31, qa), where pi < 31. 

Method 

The scale factor of the argument is subtracted from the scale factor of 
the target. The argument is then converted to precision 31 in a field 
with a shift equal to the magnitude of the difference between the scale 
factors, the shift being to the left if the difference is positive and 
tc the right if it is negative. 

For shift- and- load, the field is moved unchanged to the target. For 
shift-and-assign the result is checked for FIXEDOVERFLOW and then 
assigned to the target with the specified precision. The assignment may 
cause the SIZE condition to be raised. 

Error and Exceptional conditions 

The FIXEDOVERFLOW or the SIZE condition can occur in this module. 

Linkage 

Rl = A(arg\Hnent) 

R5 = A(DED for argument) 

R6 = A (target) 

R7 = A (BED for target) 

Called By 

IBMBMUDA t 

IBMBMOD - ADD (fixed decimal). 

IBMBMPV - MULTIPLY (complex fixed decimal). 

IBMBMQV - DIVIDE (complex fixed decimal) . 

IBMBMUDB: 

IBMBMOD - ADD (fixed decimal). 
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lEMBMVU - Multiplic ation and Divisi on (F ixed Binary Comple x ) 

Function 

To calculate z^+Za or z^/za. 

The iriodule has two entry points: 

IBMBMVUA; Multiplication 
lEMBMVUB : Division 

Method 

An incorporated subroutine computes the expressions u*x + v*y and v*x - 
u*y to 63 bits in register pairs, where u, v, x, and y are given in 
registers to 31 bits. 

Let Zx = a + bl and Za = c + kl, z^. having precision (p,q). 

For multiplication, 

REAL(Za.*22) = a*c - b*d 

and IMAG(Zi.*Z2) = b*c + a*d 

These expressions are computed by the subroutine; the results are then 
tested for fixed overflow and reduced to 31 bits each by a left shift. 

For division, 

REAKzi/Za) = (a*c + b*d)/(c**2 + d**2) 

and IMAG(zi/Za) = (b*c - a*d)/(c**2 + d**2) 

The subroutine is used to compute a*c + b*d and b*c - a*d. Each of these 
is then shifted left by (31 - p) bits. The expression c**2 + d**2 is 
next computed and, if truncation is necessary to reduce it to 31 
significant bits, all three expressions are shifted right. Finally, the 
real and imaginary parts of the result are obtained by division. 

Error and Exceptional Conditions 

The FIXEDOVERFLOW condition can occur in either multiplication or 
division; the ZERODIVIDE condition can occur in division. 

Linkage 

Rl = A(Zi.) 

R5 = A(DED for Zi) 

R6 = A(Za) 

R7 = A(DED for Za) 

R8 = A(DED for target) 

Called By 
Ccirpiled code. 
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IBMBMVV - Multiplication and Division (Fixed Deciic al Compl ex ) 

Functicn 

Tc calculate Zj.*Za or "l^/t.^* 
The module has two entry points: 

IBMB MVVA ; Multiplication 

IBMBMVVB: Division 

Method 

Let Zi = a + bl and Za = c + dl, with precisions 

(p,q) and (r,s) respectively. The results are computed 

as follows. 

Multiplication : 

REAL(Zi*Za) = a*c - b*d 

and IMAG(zi*Z2) = t*c + a*d 

Division: 

REAKzi/Za) = (a*c + b*d)/(c**2 + d**2) 

and IMAGCZi/Za) = (b*c - a*d)/(c**2 + d**2) 

For division, if the denominator has 15 significant digits or less, it 
is right-justified in an 8-byte field and the numerators are right- 
justified in 16-byte fields. If the denominator has more than 15 
significant digits it is truncated on the right (t low order digits 
lost) to leave 15 significant digits. To obtain the required scale 
factor (15 -p+q-s)on division the numerators are shifted left by 
(15 - p - t) digits. The divisions are then performed. The real and 
imaginary parts of the result are each 8 bytes long (15 digits and a 
sign) . 

Error and Exceptional conditions 

The FIXEDOVERFLOW condition can occur in either multiplication or 
division; the ZERCDIVIDE condition can occur in division. 

Linkage 

Rl = A(Zi) 

R5 = A(DED for z,.) 

R6 = A(Za) 

R7 = A(DED for Za) 

R8 = A (target) 

R9 = A(DED for target) 

Called By 
Compiled code. 
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IBMBMVW ' Multiplication (Float Complex ) 

Function 

To calculate z^^Za, where Zj. = a + bl and z^ = c + dl. The rcodule has 
two entry points: 

lEMBMVWA ; Short float complex arguments. 

lEMBMVWB ; Long float complex arguments. 

Method 

The real and imaginary parts of the result are computed as a*c - b*d and 
b*c + a*d respectively. 

Linkage 

Rl = A(Z2) 
R5 = A(zi) 
R6 = A (target) 

Called By 

Compiled code. 

lEMBMXW - Integer exponentiation (float complex). 



IBMBMWX^ IBMBMWY - Division (float Complex ) 
Modules 

Argument Module 

Short float IBMBMWX 
Long float IBMBMWY 

Function 

To calculate z^/Za in floating point, where Zj. = a ♦ bl and z^ = c + dl. 

Method 

Case ,1: ABS(c) ^ ABS(d) 

Compute q = d/c 

Then REAL(Zi/Za) = (a + b*q)/(c + d*q) 

and IMAG(zi./Za) = (b - a*q)/(c + d*q) 

Case 2: ABS(c) < ABS(d) 
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(a + bl)/(c + dl) = (b -al)/(d - cl), which reduces to case 1. 

Error and Exceptional Conditions 

The OVERFLOW, UNDERFLOW, and ZERCBIVIBE conditions can occur in this 
module. 

Linkage 

Rl = A(Zi) 
R5 = ACza) 
R6 = A (target) 

Called By 
Ccicpiled code. 

lEMBMXS. I3MBMXL - Integer Exponentiation (Float Real ) 

Modules 

Argument Module 

Short float IBMBMXS 
Long float IBMBMXL 

Function 

To calculate x**n, where n is an integer between -2**31 and +2**31 - 1 
inclusive. 

Method 

If the exponent is zero and the argument is non-zero, the result 1 is 
returned immediately. Otherwise, the result is set initially to the 
value of the argument, the exponent is irade positive, and each 
significant bit, after the first, is tested in turn, from left to right. 
For each 1 bit, the contents of the target field are squared and then 
multiplied by x. For each significant bit, the contents are squared 
only. 

Finally if the exponent was originally negative the reciprocal of the 
result is taken; otherwise it is left unchanged. 

Error and Exceptional Conditions 

The ERROR condition is raised if x = and n < 0. Since x**(-ra), where m 
is a positive integer, is evaluated as l/(x**m), the OVERFLOW condition 
may occur when m is large and the DNDERFLOW condition may occur when x 
is very small. 

Linkage 

Rl = A(PLIST) 
PLIST = A(x) 

A(n) 

A (target) 
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Called By 
Ccirpiled cede. 

IBMB MXW - Integer Exponentiation (Float Coir.plex ) 

Function 

To calculate z**n, where n is an integer between -2**31 and 2**31 - 1 
inclusive. IBMBMXW has two entry points: 

IBMBMXVvA: short float cornplex arguments. 

IBMBMXVvB; long float complex arguments. 

Method 

If the exponent is zero and the argument is non-zero, the result 1 is 
returned iirrcediately. 

If the exponent is non-zero, the contents of the target field are set to 
the argument value, the exponent is made positive, and each significant 
bit, after the first is tested in turn, from left to right. For each 
significant bit, the target field contents are squared. For each 1 
bit the contents are squared and then multiplied by z. 

Multiplication is performed by a branch to the complex multiplication 
subroutine. Finally, if the exponent was originally negative the 
reciprocal of the result is taken; otherwise it is left unchanged. 

Error and Exceptional conditions 

The EPRCR condition is raised if 
z = with n < 

Since x**(-m), where m is a positive integer, is evaluated as l/(x**ra), 
the OVERFLOW condition may occur when m is large and the UNDERFLOW 
condition may occur when x is very small. 

The OVERFLOW or UNDERFLOW condition can occur in the called complex 
multiplication routine IBMBMVW. 

Linkage 

Rl = A(PLIST) 
PLIST = A(z) 

A(n) 

A (target) 



182 Licensed Material - Property of IBM 



Calls 

IBMBMXW calls: 

lEMBMVW - Multiplication (short and long float complex). 

Called By 
Ccirpiled code. 

IBMBMYS, IBMBMYL - General Exponentiation (Float Real ) 

Modules 

Argument Module 

Short float IBMBMYS 
Long float IBMBMYL 

Function 

To calculate x**y, where x and y are real floating point numbers. 

Method 

VJhen X = 0, the result x**y = is given if y > 0, and an error message 
is given if y < 0. 

When X * and y = 0, the result x**y = 1 is given. 

In all other cases x**y is computed as EXP(y*LOG(x) ) . 

Error and Exceptional Conditions 
The ERROR condition is raised in this module if 
X = with y < 

The 0VERFLCV3 condition occurs in the called real EXP routine IBMBMBS 
(short) or IBMBMBL (long) if 

y*LOG(x) > 17U.673 

The ERROR condition is raised in the called real LOG routine IBMBMDS 
(short or IBMBMDL (long) if 

X < with y * 

Linkage 

Rl = A(FLIST) 
PLIST = A(y) 

A(x) 

A (target) 
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calls 

lEMBMYS calls : 

IBMBMDS - LOG (short float real) . 
lEMBMBS - EXP (short float real). 

IBMBMYL calls; 

lEMEMDL - LOG (long float real). 
IBMBMBI - EXF (long float real). 

Called By 
Compiled code. 

lEMEMYX, lEjyjBMYY - General Exponentiation (float Complex) 

Modules 

Argument Module 

short float IBMEMYX 
long float IBMBMYY 

Function 

To calculate z^^+Za, where Zj. and Za are complex numbers of the same 
precision. 

Method 

When Zi = 0, the result is returned if REAL(Za)>0 and IMAG(za) = 0, 
otherwise invalid exponentiation of zero. Otherwise, Zi**Z2 is computed 
as 

EXP(Za*L0G(Zi)) 

with the proviso that if IMAG(Zi) = then L0G(ABS(Zi)) is calculated by 
a call to the real LOG routine, not to the complex LOG routine. 

Error and Exceptional Conditions 

The ERROR condition is raised in this module if z^ = with either 
REAL(za) < or IMAG(za) * 0. 

The OVERFLOW condition occurs in the called EXP routine if 
REAL(Za*LOG(Zi) ) > 174.673 

The ERROR condition is raised in the called LOG routine if 

ABS(IMAG(Za*LOG(Zi))) ^ 2**18*pi (short float) 

2**50*pi (long float) 
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Linkage 

Rl 
PLIST = 



A(PLIST) 

A(Z2) 

A(Zi) 

A (target) 



Calls 

IBMBMYX calls : 

IBMBMBX - EXP (short float complex) 
IBMBMDX - LOG (short float complex) 

IBMBMYY calls ; 

IBMBMBY - EXP (long float complex). 
IBMBMDY - LOG (long float complex). 



In the special case where IMAG(Zi) =0, then calls are made to the real 
floating point LOG routines IBMBMDS (short) and IBMBMDL (long), not to 
the complex LOG routines shovm above. 



Called By 
Compiled code. 
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The interlanguage communication modules of the resident library support 
I communication between routines written in PL/I and routines written in 
I COBOL or FORTRAN, and from RPGII to PL/I. Communication between COBOL, 

FORTRAN, and RPGII is not supported. 

The resident library contains three interlanguage communication modules 
which handle the environmental changes necessary when going from PL/I to 
I non-PL/I routines and vice versa. These modules are IBMDIEC (PL/I calls 
COBOL), IBMDIEF (PL/I calls FORTRAN), and IBMDIEP (COBOL, FORTRAN, or 
RPGII calls PL/I). The key to environmental switching is a CSECT 
(control section) called IBMBILCI. This CSECT is included in each of 
the modules, and one copy of it is processed by the linkage editor 
whenever interlanguage communication is required. 

IBMBILCI contains two fullwords, both of which are initially zero. The 
first word is used to point to ZCTL, a control block which is set up on 
the first occasion that one of tne interlanguage routines is called. 
I The second word contains flags that are set to indicate COBOL, FORTRAN, 
I or RPGII on the first occasion that calls are made to or from these 
languages . 

Full details of the interlanguage communication control blocks are given 
in DOS PL/I Optimizing Compiler ; Execution Logic . 



MODULE DESCRIPTIONS 

IBMDIEC - Interlanguage Housekeeping 

Function 

To provide the housekeeping necessary when a PL/I procedure calls a 
COBOL subprogram. The module has three entry points: 

IBMBIECA ; Establish standard COBOL environment. 

IBMBIECB ; Establish COBOL environment with provision for PL/I interrupt 
handling. 

IBMBIECC ; Re-establish the PL/I environment after return from a COBOL 
subprogram. 

Method (chart DIEC) 

Entry point IBMBIECA ; 

This entry point is used to establish the COBOL environment when PL/I 
calls a COBOL entry point for whicn the INTER option has not been 
specified. 

If the interlanguage control iDlock ZCTL has not already been set up, that 
is, if this is the first interlanguage call, IBMDIEC acquires non-LIFO 
storage by a call to IBMDPGR and initializes ZCTL. The address of 
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ZCTL is stored in the first word of IBMBILCI and the contents of 
register R12 are stored in ZCTL. 

The module then acquires an interlanguage VDiA(in LIFO storage) for this 
particular call to COBOL. The new VDA is inserted in the interlanguage 
VDA chain between the previous VEA and ZCTL. The contents of register 
13, which were saved on entry to the module, are then stored in the new 
VDA. 

To enable any interrupts which occur in the COBOL subprogram to be 
handled by the supervisor, the module issues a STXIT macro with null 
arguments to cancel the previously issued STXIT, and sets the program 
mask to zero. 

Finally, contrcl is returned to PL/I compiled code, which subsequently 
branches to the COBOL subprogram. 

Entry Point IBKBIECB : 

This entry point is used to establish the COBOL environment when PL/I 
calls a COBOL entry point for which the INTER option has been specified. 

When entered at this entry point, the module sets up ZCTL if necessary 
and acquires a VDA in the same way as has been described for entry point 
lEMBIECA. Before returning to compiled code, however, IBMDIEC issues a 
STXIT iracrc specifying an address (IE007) within the module. Interrupts 
in the COBOL subprogram thus cause module IBMDIEC to be entered at 
address IE007. 

Entry Address IE007 : 

If control reaches address IE007 the following action is taken. 

The PL/I environment is re-established by restoring register 13 from the 
interlanguage VDA and register 12 from ZCTL. The "return address" part 
of the PSW passed by the supervisor is stored in library workspace and 
replaced by the address (IE015) of a further point in IBMDIEC. Also, if 
the interrupt is due to UNDERFLOW, the last four bytes of the COBOL 
program, up to the point of interrupt, are copied to IE013 so that the 
error-handling module IBMDERR can take the correct action. This 
discrimination is made because, if the interrupt is due to a bad value 
in the lAR, copying might cause a further addressing interrupt. 

A STXIT macro is issued to restore normal PL/I interrupt handling, and a 
branch is made, via the bootstrap in the TCA appendage, to entry point 
IBMBERRA of the error handling module. The interrupt is subsequently 
handled in the normal way, except that any return to the point of 
interrupt is made to IE015 in IBMDIECA. 

Entry Addresses IE015 and IE016 : 

The module is entered at address IE015 when the PL/I interrupt handler 
IBMDERR returns control to the point that it takes to be the point of 
interrupt, or when a GOTO out of an on-unit for the interrupt is 
executed. 

For the GOTO case , the module dechains and frees the latest language 
VDA, and calls IBMDERR to print out a warning message. Control is then 
returned to the caller. 
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otherwise a STXIT macro is issued specifying an address (IE016) in the 
module. An interrupt is then forced, and the module is re-entered at 
IE016. 

At IE016,, the address from the PSW of the original interrupt is moved 
from library workspace into the PSW passed by the supervisor for this 
interrupt, and the program check exit address is reset to IE007 by a 
STXIT macro. The COBOL registers are then restored and an EXIT macro is 
issued. The supervisor subsequently returns control to the point at 
which the original interrupt occured. 

Entry Point IBy:BIECC: 

This entry point is used to re-establish the PL/I environment after 
control has been returned to PL/I from a COBOL program. 

A STXIT macro is issued to restore normal PL/I interrupt handling, and 
the program mask is restored to its PL/I setting (hexadecimal E) . The 
VDA is then dechained and control is returned to compiled code. 

Linkage 

No parameters are passed to this module. 

Calls 

IBMDPGR - Storage management. 
IBMDERR - Error handler. 

Called By 
compiled code. 



IBMDIEF - Interla nquaqe Housek eeping 

Function 

TO provide the housekeeping necessary when a PL/I program calls a 
FORTRAN subprogram. The module has four entry points: 

IBMBIEFA; Establish standard FORTRAN environment. 

IBMBIEFB: Establish FORTRAN environment and enable interrupts not 
handled by FORTRAN to be handled by PL/ I. 

lEMBIEFC; Re-establish the PL/I environment after return from a FORTRAN 
subprogram. 

IBMBlEFDt Re-establish the PL/I environment and store the returned value 
after returning from the invocation of a FORTRAN function. 

Method (chart DIEF) 
Entry point IBMBIEFA s 
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This entry point is used to establish the FORTRAN environment when PL/I 
calls a FORTRAN entry point for which the INTER option has not been 
specified. 

If the inter language control block ZCTL has not already been set up, i.e. 
if the COBOL and FORTRAN flags are both off, lEMBIEF acquires non-LIFO 
storage by a call to IBMDPGR and initializes ZCTL. The address of ZCTL 
is stored in the first word of lEMEILCl and the contents of register 
R12 are stored in ZCTL. If the FORTRAN flag is off, IBMDIEF calls the 
Fortran library to initialize the Fortran environment. 

The module then acquires an interlanguage VDA(in LIFO storage) for this 
particular call to FORTRAN. The new VDA is inserted in the 
interlanguage VDA chain between the previous VDA and ZCTL. The contents 
of register 13, which were saved on entry to the module, are then stored 
in the new VDA. The FORTRAN environment is set up by issuing a STXIT 
macro specifying the FORTRAN interrupt information held in ZCTL. 

Finally, control is returned to FL/I compiled code, which subsequently 
branches to the FORTRAN subprogram. 

Entry Point IBMBIEFB; 

This entry point is used to establish the FORTRAN environment when PL/I 
calls a FORTRAN entry point for which the INTER option has been 
specified. 

When entered at this entry point, the module sets up ZCTL if necessary 
and acquires a VDA in the same way as has been described for entry point 
lEMBlEFA. Before returning to compiled code, however, IBMBIEF issues a 
STXIT macro specifying an address (IE023) within the module. Interrupts 
in the FORTRAN subprogram thus cause module IBMDIEF to be entered at 
address IE023. 



If control reaches address IE023 the module determines the cause of the 
interrupt. If the interrupt condition is one that is not handled by 
FORTRAN, the following action is taken: 

The PL/I environment is re-established by restoring register 12 from 
ZCTL and and register 13 from the interlanguage VDA. The "return 
address" part of the PSW passed by the supervisor is stored in library 
workspace and replaced by the address (IE03U) of a further point in 
lEMDIEF. 

A STXIT macro is issued to restore normal PL/I interrupt handling, and a 
branch is made to entry point IBMBERRA of the error handling module. 
The interrupt is subsequently handled in the normal way, except that any 
return to the point of interrupt is made to IE03t» in IBMDIEF. 

If the interrupt is one that is handled by FORTRAN, the FORTRAN 
environment is set up by copying the interrupted registers and the PSW 
into the FORTRAN interrupt savearea and issuing a STXIT macro 
instruction with the correct FORTRAN parameters. An interrupt is then 
forced, so that the FORTRAN interrupt handler is entered. The FORTRAN 
interrupt handler returns via a bootstrap in library workspace to 
address IE030 in IBMDIEF. 
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Entry Addresses IE03U and IE030; 

The module is entered at address IE03U when the PL/I interrupt handler 
IBMDERR returns control to the point that it takes to be the point of 
interrupt, or at address IE030 when the FORTRAN interrupt handler 
returns control via the bootstrap in library workspace. In both cases, 
the general action taken is the same. 

If a GOTO out of an on-unit has been taken, the module dechains and 
frees the latest language VDA and then returns to the caller. 

Otherwise, a STXIT macro is issued specifying a further point (IE038) in 
the module. An interrupt is then forced, and the module is re-entered 
at IE038. 

The interrupt address is now reset to IE023 by means of a STXIT macro. 
The address from the PSW of the original interrupt is moved from library 
workspace into the PSW passed by the supervisor for this interrupt. The 
FORTRAN registers are then restored and an EXIT macro is issued. The 
supervisor subsequently returns control to the point at which the 
original interrupt occured. 

Entry Point IBMBIEFC : 

This entry point is used to re-establish the PL/I environment after 
control has been returned to PL/I from a FORTRAN subprogram. 

The program mask is reset and a STXIT macro is issued to restore normal 
PL/I interrupt handling. The current VDA is then dechained and control 
is returned to compiled code. 

Entry Point IBMBIEFD; 

This entry point is used to re-establish the PL/I environment after 
control has been returned from the invocation of a FORTRAN function. 
The processing is the same as that for entry point IBMBIEFC except that, 
having released the VDA, the module examines the parameter list and 
moves the returned value from the register, or registers, in which 
FORTRAN left it to the required location. 

Linkage 

Rl = A(PLIST) 

PLIST = A (value to be returned or locator for value to be returned) 
A(DED for returned value) 

Calls 

lEMDPGR - Storage management. 

IBMDERR - Error handler. 

IBCOM# - FORTRAN initialisation and termination. 

Called By 
Compiled code. 
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IBMDIEP - In-berlanquaqe Housekeeping 

Function 

To provide the housekeeping necessary when a PL/I procedure is called 
from another language. The module has four entry points: 

IBMBIEPA : Establish the PL/I environment and get a DSA for a PL/I 
procedure which has been entered at an entry point with OPTIONS (COBOL) , 
OPTIONS (FORTRAN) , or OPTIONS (RPG) . 

IBMBIEPB ; Set up a parameter list specifying the length and location of 
the PL/I ISA (initial storage area). 

IBMBIEPC : Re-establish the environment of the non-PL/I calling program. 

IBMBIEPD ; Re-establish the environment of the non-PL/I calling program 
and move the value returned by the PL/I function into the appropriate 
register. 

Method (chart DIEP) 

Entry Point IBMBIEPA ; 

The module is entered at this entry point after a PL/I procedure has 
been invoked at an entry point with OPTIONS (COBOL) , OPTIONS (FORTRAN) , or 
OPTIONS (RPG) . 

I The module first tests the language flags in the interlanguage control 
I block IBMBILCl. If any flag is set, this means that a previous 
interlanguage call has been made and consequently that a PL/I 
ISA (initial storage area) has already been acquired and initialized. In 
these circumstances IBMBIEP has only to restore the PL/I TCA pointer 
(register 12), establish PL/I interrupt handling, set the appropriate 
flag in IBMBILCl, and obtain a DSA for the PL/I procedure. 

Register 12 is restored from the interlanguage control block ZCTL. The 
interrupt handling data for the non-PL/I calling procedure is stored in 
the the latest interlanguge VDA, and a STXIT macro is issued to 
establish PL/I interrupt handling. A DSA is obtained, by a call to 
IBMDPGR if necessary, and its address is loaded into register 13. 
Finally, control is returned to PL/I compiled code. 

I If none of the COBOL, FORTRAN, or RPGII flags in IBMBILCl are set, the 
PL/I ISA must be initialized. The non-PL/I user may have already 
allocated an ISA by means of a call to IBMBIEPB (alias PLISA) . If this 
is so, the stack flag in IBMBILCl will be set. If the stack flag is not 
set IBMBIEP finds the length and the address of the available ISA from 
the information in the job's communication region, leaving space for 
ZCTL and a DTF and a buffer for FORTRAN error messages. 

In either case, IBMDIEP sets up ZCTL. The interrupt handling data for 
the non-PL/I user is then stored in ZCTL. 

The length and the address of the ISA are then passed as parameters to 
I entry point IBMBPJRB of the program initialization module IBMDPJR. Also 
passed to IBMBPJRB is an address in IBMDIEP. The initialization module 
takes this address to be that of the PL/I program; consequently, after 
the ISA has been initialized, control is returned to IBMDIEP. 

I On return from IBMBPJRB, the DSA chain is changed so that the PL/I dummy 
DSA is above the DSA of the non-PL/I calling program. This is done so 
that PL/I program initialization does not take place every time a PL/I 
procedure is called from the same level of non-PL/I (see "Tail" code 
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below) . 

IBMBIEP then acquires an interlanguage VDA and stores its address in the 
first word of ZCTL. The caller's error handling information and tne 
contents of register 13 are saved in the new VDA. 

Finally, a DSA is obtained for the PL/I procedure. Control is then 
returned to PL/I compiled code. 

Entry point IBMBIEPB : 

This entry point has an alias, PLISA, which is called by COBOL or 
FORTRAN to specify the area of storage that the PL/I procedure is to use 
as its ISA. 

IBMBIEP takes part of the specified area for ZCTL and loads the address 
and length of the remainder into the parameter list for IBMBPIR. The 
stack flag in IBMBILCl is set to indicate that an ISA allocation has 
I been made, and control is returned to the caller. 

Note: If only one argument is passed to PLISA, the stack flag is reset 
to zero; the default ISA is thus obtained when the module is 
subsequently entered at IBMBIEPA. 

Entry Point IBMBIEPC ; 

The module is entered at this entry point at the end of a PL/I 
procedure, immediately before control is returned to the calling 
program. The calling program's interrupt handling requirements are re- 
established. 

Entry Point IBMBIEPD : 

This entry has the same purpose as entry point IBMBIEPC, but also moves 
a value that is to be returned to FORTRAN into the appropriate 
registers. 

Note: Floating point results may cover one, two, or tour floating point 
registers. Fixed point and bit results are always returned in Register 
0. 

Tail Code : 

When the non-PL/I program that called PL/I is returning to its own 
caller, it restores registers from the DSA prior to its own and returns 
to the address specified in this DSA. However, because the DSAs have 
been rechained (see above) , this DSA is in fact the short save area in 
ZCTL. The address that control is returned to is thus that of point 
JIEOIU in module IBMDIEP. This address is the start of the "tail" code. 

The tail code passes the FORTRAN return code and value, if these exist, 
past the dummy DSA to the non-PL/I calling program's caller. It then 
restores registers from the dummy DSA and returns to module IBMDPIR. 
The return code field (TORC) in the TCA is set so that IBMDPIR will 
ignore any ON FINISH units and execute a normal return to the caller, 
i.e. , to IBMDIEP. 

I IBMDPIR returns control to point IE002 in the tail code. The tail code 
then tests the return code from IBMDPIR. If the return code is zero, 
the tail code clears the interlanguage flags (except the stack flag) and 
returns to the non-PL/I calling program's caller. If, however, the 
return code indicates that a PL/I STOP instruction has been executed, a 
test is made to determine whether or not there is a FORTRAN environment. 
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If there is, the equivalent of a FORTRAN library STOP command is used to 
close any FORTRAN files and to terminate the program. Otherwise, an EOJ 
macro is issued. 

[Entry point IE103 exists to intercept RPGII termination, since RPG 
I issues its ovm EOJ macro without returning to its caller (since there 
I normally is none). This re-routes control through the tail code, and 
ensures that, on return from IE002, control will return to the RPGII 
[termination code. 



Linkage 



Entry Point IBMBIEPA ; 

RO = length of required DSA 
Rl = calling language code 
(0 for COBOL, 
4 for FORTRAN) 

Entry Point IBMBIEPB ; 

Rl = A(PLIST) 

PLIST = A (area for PL/I ISA) 

Adength of PL/I ISA) or X'80' 

Entry Point IBMBIEPD ; 

Rl = A(PLIST) 

PLIST = A (value to be returned or locator for value to be returned) 
A(DED for value to be returned) 

No arguments are passed to entry point IBMBIEPC. 



Calls 

IBMDPGR - Storage management. 
IBMDPIR - Program initialization. 
IBCOM# - FORTRAN termination. 



Called By 
Compiled code. 
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CHAPTER 9; MISCELLANEOUS ROUTINES 



The modules described in this chapter support the PL/I built-in 
functions DATE and TIME and the PL/I statements DISPLAY, WAIT, and 
DELAY, and provide interfaces with the system CHECKPOINT/RESTART and 
SORT utilities. 

Two display modules are provided, IBMDJDS and IBMDJDZ. Except in the 
case of a program which contains a DISPLAY with EVENT statement, either 
module will suffice. In the case of the above exception however, module 
IBMDJDS is used. Three WAIT modules are described. IBMDJWT is the main 
WAIT module that handles PL/I WAIT statements in systems that support 
the WAITM macro. It is supported by module IBMBJWI, which is called 
whenever the WAIT statement specifies an array event variable, IBMBJWI 
converts any array into a list of scalar event variables, and then 
passes the list to IBMDJWT. 

In systems that do not support the WAITM macro, neither of these modules 
is included. Their place is taken by the single WAIT module IBMGJWT, 
which permits waiting on one event only. 



MODULE DESCRIPTIONS 

IBMDJDS - DISPLAY 

Function 

To implement the PL/I DISPLAY statement. The module has two entry 
points : 

IBMBJDSA: Normal entry from compiled code. 

IBMBJDSB : Entry from the WAIT module (IBMDJWT or IBMGJWT). 

Method (chart DJDS) 

Entry Point IBMBJDSA ; 

Module IBMDJDS includes a channel control block (CCB) and a number of 
channel command words (CCWs). Four CCWs, occupying four contiguous 
double-word locations, are used to display the message, to put out a 
standard message "AWAITING REPLY", to read the reply, and to sense the 
result. 

On entry to the module, surplus blanks are removed from the display 
message. The module then examines the parameter list to determine 
which of the three possible types of display statement (DISPLAY 
alone, DISPLAY with the REPLY option, and DISPLAY with the REPLY and 
EVENT options) is being processed. The action taken in each case is 
as described below: 

DISPLAY ; For display alone, only the first CCW is required. The 
module therefore dechains the display CCW from the "awaiting reply" 
CCW, moves the address of the display message, together with the 
required channel command code, into the CCW, and calls the internal 
"console I/O" subroutine (see below) . On return from this 
subroutine, the module returns control to compiled code. 
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DISPLAY with REPLY option; If the REPLY option is specified, all 
four CCWs are required. The module therefore chains the display CCW 
to the "awaiting reply" CCW. (This CCW is permanently chained to the 
reply CCW, which, in turn, is perir.anently chained to the sense CCW). 
The irodule then moves the addresses of the display and reply strings, 
together with the required channel corrmand codes, into the CCWs and 
calls the internal "console I/O" subroutine. On return from this 
subroutine, the module returns control to compiled code. 

DISPLAY with REP LY and EVENT options; If the EVENT option is present, 
the module chains and initializes the CCWs as described in the 
preceding paragraph. It then flags the specified event variable as an 
active I/O display event and sets a "nowait" switch to indicate to the 
internal "console I/O" subroutine that the EVENT option is present. 
Because the EVENT option means that control will be returned to 
compiled code as soon as the channel program has been initiated, the 
copies of the CCB and the CCWs that are contained in lEMDJDS cannot be 
used. The module therefore acquires non-LIFC storage and copies the 
CCB and the CCWs into it. The display string is also copied into this 
storage, in case the contents of the original display string are 
altered by compiled code before the message has been displayed. The 
address of the new CCB is set into the event variable. The module 
then calls the internal "console I/O" subroutine (see below). On 
return from, this subroutine, control is returned to compiled code. 

Entry Point IBMBJDSB ; 

This entry point is called by the WAIT module (IBMDJWT or IBMGJWT) 
when the display event variable has been specified in a PL/I WAIT 
statement. The module is passed the address of the relevant CCB. 

On entry, the module calls the internal "console I/O" subroutine at 
entry point JD6 00 (see below) to test the success or otherwise of the 
DISPLAY REPLY Statement. On return from this subroutine, IBMDJDS 
frees the storage that was obtained for the CCB, the CCWs, and the 
display string and then returns control to the caller (IBMDJWT) . 

Console I/O Subroutine ; 

This subroutine issues an EXCP macro to execute the channel program 
defined by the CCWs that have been set up by the main code of the 
module. 

It then tests the "nowait" switch to determine whether or not a wait 
is required. If the nowait switch is on, i.e., if the EVENT option 
was present in the display statement, the subroutine returns 
immediately to the main code of the module, which returns control to 
compiled code (see above). If the nowait switch is off, the 
subroutine issues a WAIT macro. 

When channel end is received, the subroutine proceeds to check whether 
or not any errors have occurred by examining the sense byte. This 
point in the subroutine (JD600) is the entry point called by the main 
code of the module when it is entered at entry point IBMBJDSB. 

If there have been no unit errors ("unit check" or "unit exception") 
the ircdule returns to the caller. 

If a unit error has occurred, the module blanks out the reply string 
and reissues the EXCP macro instruction for the display. However, if 
the error is a unit check that requires operator intervention 



Licensed Material - Chapter 9: Miscellaneous Routines 195 

Property of IBM 



(detected by examining the sense byte) , the audible alarm is sounded by 
means of a further EXCP macro instruction before the display is retried. 

Error and Exceptional conditions 

The ERROR condition is raised if an active event variable is specified. 

Linkage 

Rl = A(PLIST) 

PLIST = A (string locator for message) 

A (string locator of space for reply) or zero 

A (event variable) or zero 

Called Ey 

Compiled code (entry point lEMDJDSA) . 
WAIT module (entry point IBMDJDSB). 



IBMDJDZ - DISPLAY without EVENT 

Function 

To support the PL/I DISPLAY statement and REPLY option. 

Method 

The display string is scanned and trailing blanks removed, if there is 
nc REPLY option, an EXCP and WAIT macro are issued to transmit the 
message to the console. The CCB used contains the address and length of 
the message. Return is made to the caller. 

If there is a REPLY option, the EXCP and WAIT are issued as for DISPLAY 
only. However, the EXCP specifies a chain of three CCBs. The first is 
to transmit the display string, the second to transmit a standard 
message to inform the operator that a reply is required, and the third 
to read the reply. When the reply is received, return is made to the 
caller. 

If a unit check or exception occurs on the console, the reply string, 
if any, is blanked out, and the EXCP and WAIT for the DISPLAY/REPLY are 
reissued. 

lEMDJDZ raises ERROR if there is a zero length DISPLAY with REPLY 
option, or if the length of the string to accept a reply is zero. 

Linkage 

Rl -> A (string locator of message) 

A(string locator of space for reply) (optional) 

Called By 

Compiled code. 
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IBMDJDT - DATE Built-in Function 



Function 



To iiTipleirent the PL/I built-in function DATE, i.e. to return the date in 
the form yyiwrdd. 

Method (chart DJDT) 

The module accesses the comirtunication region, which contains the date in 
bytes thru 7. The format of the date (MM/DD/YY or DD/MM/YY) is found 
by testing the data configuration bit in the communication region, the 
result of this test being used to select the appropriate format 
translation table. The date is then translated to the target format 
YYWMDD. 

Linkage 

PI = A(PLIST) 

PLIST = A(6-byte field to receive answer) 

Called By 
Compiled code. 



IBMDJDY - DELAY 



Function 

To implement the PL/I statement DELAY, i.e to suspend the execution of 
the task for a time period specified in milliseconds. 



Method (chart CJDY) 

If the system has no interval timer, an immediate return is made to the 
caller. 

Otherwise, the required delay is divided by 1000 to convert it to 
seconds and is rounded to the nearest second. The result is given as a 
parameter to the SETIME macro specifying a Timer Event Control Block 
(TECB) and a WAIT macro is issued on the TECB. On completion of the 
WAIT a return is made to compiled code. 

Note : Because the timer interval for DOS is one second, the DELAY 
statement is implemented only to the nearest second. 

Linkage 

Rl = A (required delay in milliseconds) 

Called By 
Compiled code. 
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IBMDJTT - TIME Built-In Function 



Function 



Tc irepleirent the PL/I tuilt-in function TIME, i.e. to return the time of 
day in the character format HHMMSSTTT. 

Method (chart DJTT) 

The module issues a GETIME macro with the TU option, which returns the 
time of day in units of 1/300 second. This is converted into hours, 
minutes, seconds, and thousandths of a second and assembled into the 
required character format. 

If the system has no time-of-day facility, the module returns the 
character string ' 000000000*. 

Linkage 

Rl = A(FLIST) 

PLIST = A(9-byte field to receive answer) 

Called By 
Compiled code. 



IBMBJWI ~ WAIT (Array Events ) 

Function 

To implement the PL/I WAIT statement when array events have been 
specified. 

Method (chart BJWI) 

The parameter list is scanned to compute the total number of event 
variables, and a VDA is obtained for the param.eter list that will be 
passed to IBMDJWT. 

The first word of the parameter list passed to IBMBJWI is copied into 
the VDA. Each pair of two words in the parameter list is then examined 
again. If the dimensionality is zero, the event variable address is 
copied into the VDA. If the dimensionality is one, a simple loop is 
executed to compute the address of each element in the single- 
dimensioned array and place it in the VDA. If the dimensionality (N) 
is greater than one, a VDA of length 12*(N-1) is obtained and passed to 
module IBMBAIH. This module sets up a table in the VDA which enables 
IBMBJWI to index through the array and place the address of each element 
in the VDA. 

When the parameter list is complete, IBMDJWT is called to perform the 
wait. Return is then made to the caller. 
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Linkage 

Rl = A(PLIST) 

PLIST = A(nuniber of events (N) to be waited on) or high order 
bit = 1 if N is not specified. 

A(event variable) or A (array locator) 

Diirensionality 



A (event variable) or A (array locator) 
Dimensionality 

The end of the parameter list is denoted by a high order 'l* bit in the 
dimensionality word. 

Calls 

IBMDPGR - Storage management. 
IBMEAIH - Array indexer. 
IBMDJWT - WAIT module. 

Called By 
Ccrrpiled code. 

IBMDJWT ~ WAIT (Multiple Events) 

Function 

Tc implement the PL/I WAIT statement. 

Method (chart DJWT) 

The module first scans the list of Event Variables (EVs) and calculates 
the number of events which must be completed to satisy the WAIT. If 
this number is not positive, i.e. there are already enough completed 
events or the number of events to be waited on was less than one, 
control is returned to the caller. 

Ncte: EWIP, which is tested at statement JW003, is a flag in the EV 

which indicates that the event is already being waited on and has caused 

entry tc an ON-unit. This situation can arise if a wait on a particular 

event causes entry to an ON-unit which contains a wait on the same 
event. 

The module then acquires a VEA for the EVTAB (event table) and the 
ECBLIST (list of event control block addresses). If all the events to 
be waited on are uncompleted active I/O events (other than DISPLAY 
events), an ECBLIST is not required; in these circumistances the length 
of the ECBLIST is set to zero before storage is acquired and flag F is 
set on. 

The parameter list is then scanned again. Events which are complete or 
have the EWIP flag set are ignored. For other events an EVTAB element 
is created in the EVTAB and chained to the EV. If flag F is off and the 
EV is associated with an active I/O event, the address of the ECB is 
obtained frcir the EV and placed in the ECBLIST. The address cf this 
ECBLIST element is placed in the EVTAB element for the EV. 
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Subsequent action depends on whether or not flag F is set. 

Flag_^ F ..Set : 

Flag F indicates that all the events to be waited on are uncoiTipleted 
active I/O events, all of which rnust be completed to satisfy the Vihll. 
In these circuirstances, the events are not waited on in this irodule; 
instead, the module scans the EVTAE and passes the address of each 
active EV in turn to an internal "check event" subroutine (JV^300), which 
calls lEy.DRIC. The check event subroutine is described below. 

Net Set : 

If flag F is not set, the events are waited on in this module before 
being passed to IBMDRIC. 

A check is first made to see whether or not an ECBLIST exists. If one 
does not, all the events being waited on are either incomplete non-I/0 
events or have the EWIP flag set. This means that no more events can be 
completed and the wait is still not satisfied. In these circumstances 
the micdule dechains the EVTAB elements and branches the the error 
handler (IBMBEBR) to raise the ERROR condition. 

If an ECBLIST does exist, a WAITM macro is issued with the ECBLIST as 
parameter. Control returns when any one of the ECBs addressed from tne 
ECBLIST is complete. The EVTAB is then scanned to find any EV whose ECB 
is now complete, and the internal check event subroutine is called (see 
below). If control returns from the subroutine, the ECBLIST is checked 
again and a further WAIT macro is issued. 

Check Event Subrout ine (JW 300 ) 

The check event subroutine calls IBMDRIC to wait on I/O events, or 
lEMDJDS for DISPLAY events. When control returns, the EVTAB element is 
set inactive and complete. 

Note: An EVTAB element is set inactive by setting the field that 
contains the address of the associated EV to zero. 

If a chain of EVTAB elements exists for the EV, each EVTAB element in 
the chain is then set complete and inactive. 

When the end of the chain of EVTAB elements is reached, the associated 
EV is set complete and inactive. The module then scans the EVTAB to see 
wnether or not there are any other completed events. This is necessary 
because completion of the first event may have caused entry to an ON- 
unit in which other events were set complete, either by m.eans of the the 
completion pseudovariable or by further WAIT statements. 

The number of events to be waited on is decremented by one each time a 
complete active event is found. When this number is reduced to zero 
control is returned to the caller. 

Error and Exceptional Conditions 

The ERROR condition is raised if, at any time during the execution of 
and before the completion of the wait, the number of active incomplete 
events is reduced to zero. The type of error raised depends on the why 
the remaining events cannot be completed. If there are any inactive and 
incomplete events, the error code passed to IBMDERR indicates that the 
WAIT would cause a permanent wait. If there are no inactive, incomplete 
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events, the error code indicates that the WAIT cannot be satisfied owing 
to EVs having the EWIP flag set. 

Linkage 

Rl = A(PLIST) 

PLIST = A (number of events (N) to be waited on) or high order 
bit =1 if N is not specified. 
A (event variable) 



A (event variable) 

The last A(EV) in the parameter list is indicated by a 'l* in the high 
order bit. 

Calls 

IBMDRIC - Record I/O module. 
IBMDERR - Error handler. 
IBMDJDS - DISPLAY. 



Called By 

Compiled code. 

IBMBJWI - WAIT (array events) . 



lEMGJWT - WAIT (Single Event) 



Function 

To implement the FL/I WAIT statement. This module is used in systems 
that do not support waits on multiple events. 

Method (chart GJWT) 

The module first checks the parameter list to confirm that only one 
event variable (EV) has been passed. If more than one EV has been 
passed, the module calls the error handler to raise the ERROR condition. 

If the EV is already complete, or if the number of events to be waited 
on (specified in the PL/I WAIT statement) is less than or equal to zero, 
an immediate return is made to compiled code. 

The module now tests to see whether or not the event can be waited on. 
If the EV is not active, or if flag EWIP in the EV is set, the module 
calls the error handler to raise the ERROR condition. Otherwise, the 
module goes ahead and processes the WAIT. 

For I/C events, the module passes the EV to IBMDRIO, which in turn calls 
the relevant transmitter module to wait on the event and raise any 
errors (see DCS P L /I Transient Library; Program, Logic ). 

Fcr DISPLAY events, the module issues a WAIT macro on the CCB and, on 
completion of the wait, calls IBMDJDS to tidy up the DISPLAY 
environment. 

If control returns from IBMDRIO or IBMDJDS, the module sets the EV 
complete and inactive and returns to the caller. 
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Error and Exceptional Conditions 

The error handler is called to raise the ERROR condition in the 
following circumstances: 

1. More than one EV is passed to the module. 

2. The EV passed to the module is incomplete and inactive. 

3. The EV passed to the module has its EWIP flag set. 

Note: EWIP is a flag in the EV which indicates that the event is 
already being waited on and has caused entry to an ON-unit. This 
situation can arise if a wait on a particular event causes entry to an 
ON-unit which contains a wait on the same event. 

Linkage 

Rl = A(PLIST) 

PLIST = A (number of events (N) to be waited on) or high order 
bit = 1 if N is net specified. 
A( event variable) 



A (event variable) 

The last A(EV) in the parameter list is indicated by a '1* in the high 
order bit. 



Calls 

lEMDRIO - RECORD I/O interface module 
IBMDJDS - DISPLAY module. 
IBMDERR - Error handler. 



Called By 
Compiled code. 
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IBMDKCP - CHECKPOINT/RESTART Interface Module 

Function 

To implement the PL/I CHECKPOINT facility. 

Method (chart DKCP) 

The module establishes a checkpoint by issuing a CHKPT macro 
instruction. Operands for the macro instruction are set up as follows: 

If the device number in the parameter list for IBMDKCP (see "Linkage" 
below) specifies a disk file, a DTFPH is generated and its address is 
set as an operand on the CHKPT macro instruction. The device number is 
contained in the "device characteristic" parameter, which has the form 
" [sysname] , [device number]". The default values for the sysname and the 
device niimber are SYSOOl and 2U00, respectively. 

The "restart address" set on the CHKPT macro instruction is an address 
within IBMDKCP. The purpose of this entry is described under the 
heading "Restart" below. 

Two tables are set up and their addresses are set as operands on the 
CHKPT macro instruction. The first table contains the name of all tape 
files that are open when the checkpoint is taken. The second contains 
verification information for all disk files that are open when the 
checkpoint is taken. Information on the open files is obtained by 
scanning the open file chain. 

The "checkid" parameter in the parameter list for IBMDKCP (see "Linkage" 
below) is a character string variable. The module places a unique 
checkpoint identification in this variable when the CHKPT macro 
instruction has been issued. 

After issuing the CHKPT macro instruction, the module issues a STXIT 
macro instruction to restore PL/I interrupt handling, and then returns 
to the caller. The STXIT macro instruction is necessary because the 
CHKPT macro instruction cancels the previously issued STXIT. 

Restart 

When restart is invoked by means of a JCL statement, the restart routine 
passes control to the address in IBMDKCP that was specified in the CHKPT 
macro instruction. The module resets the program mask to the value it 
had when the checkpoint was established, and issues a STXIT macro 
instruction to restore PL/ I error handling. The module then returns to 
the point in compiled code at which the checkpoint was taken. 

Error and Exceptional Conditions 

Errors are handled by passing a fullword binary return code to the 
caller in the address specified in the parameter list. The return codes 
have the following meanings: 

Successful completion 

H Restart has occurred 

8 Unsuccessful completion (program error) 

12 Unsuccessful completion (I/O error or set-up error) 

Linkage 
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RA = A(PLIST) 

PLIST = A (filename string locator) 

A(checkid return string locator) 

A (device characteristic string locator) 

A (return code) 

Note : All the PLIST arguments are optional. 
Called By 
Compiled code. 

IBMDKDM - Dump Bootstrap 

Function 

I IBMDKDM is the bootstrap routine for the transient dump control module 
IBMDKMR, or IBMFKMR in a CICS environment. 

Method (chart DKDM) 

I The module tests a field in the TCA to determine if the program is 
(executing on CICS. If so, a CICS program control LOAD macro is issued 
I for the CICS dump control module IBMFKMR, otherwise the module loads the 
I transient dump control module IBMDKMR. The appropriate module is then 
I called, passing the same parameter list as was passed to IBMDKDM. 

On return from the transient routine, IBMDKDM decides, from the 
(parameter returned by IBMDKMR or IBMFKMR, which of the two possible 
actions (stop or continue) is required. For "stop", IBMDKDM places the 
appropriate return code in the TCA and branches to the goto code in the 
TCA, passing the address of the dummy DSA and the address of register 14 
in that DSA. For "continue", a normal return is made to the caller. 



Linkage 

Rl 
PLIST = 



A (PLIST) 

A (string locator for dump parameter string) 

A (string locator for the user's dump- identifier) 



Calls 

IBMDKMR - Transient dump control module. 
IBMFKMR - Transient dump control module - CICS, 

Called By 

Compiled code. 



IBMDKST - SORT Interface Module 



Function 

IBMDKST acts as an interface between the system sort/merge facilities 
and PL/I. In this capacity it serves as a bootstrap to preserve the 
integrity of the PL/I calling program and to set up the correct 
environment for the sort/merge routines . It interfaces with either of 
two SORT/MERGE programs; No. 5736-SMl. , or No. 360-SM-483. 
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The module has four entry points and enables the use of two SORT/MERGE 
user exit points E15 and E35. The exit points allow a PL/I routine to 
create and pass records to the SORT/MERGE routine and also to receive 
records after sorting from the routine. 

IBMDKST can be called by any of its four entry points to establish four 
types of processing. 

I3MBKSTA : Invokes the sort/merge prograir to sort records from an input 
data set, and write them in sorted sequence onto an output data set. 

IBMBKSTE ; Invokes the sort/merge program and specifies the use of user 
exit E15. Using this exit can either supply all the records to be 
sorted or receive records obtained from an input data set and alter or 
delete them from the sort. It can also insert additional records into 
the sort. The sorted records are written directly into an output data 
set. 

IBMBKSTC ; Invokes the sort/merge prograir and specifies the use of user 
exit E35. Invoking this exit can allow the program to either receive 
all the records from the sort and handle any output that is required, or 
examine each sorted record and alter or delete it from the output data 
set. 

IBMBKSTD; Invokes the sort/merge prograir and specifies the use of user 
exits E15 and E35. The use of these exits is exactly as described for 
IE^flDKSTE and lEMDKSTC above. 

Method (chart DKST) 

The actual sorting process is controlled by providing the sort routine 
with the appropriate control information. This is passed as an argument 
list by the PL/I program to IBMDKST. All calls to SORT go through the 
interface module as do all exits invoked by SORT. 

When exit E15 is invoked, the entry point of the procedure to be used as 
the exit routine is passed to SORT by IBMDKST. The sort routine then 
invokes this procedure once for each record presented for sorting. A 
character string representation of the record is passed back to the sort 
routine via the interface module. A return code is also passed back to 
indicate whether the exit is to be invoked again or not. 

When exit ESS is invoked, the entry point concerned is passed in the 
argument list to IBMDKST as described for exit E15 above. The sort 
routine, at the end of the sort cycle, invokes this exit so that the 
sorted records can be presented to the exit routine. The exit is 
entered once for each record sorted. A character string parameter is 
declared in the exit procedure to receive the records passed back by the 
sort routine. A return code is returned to SORT to indicate whether any 
mere records are required or not. 

The exit routines are addressed by the exit code in the DSA. Control 
will return to this code, which will then store the registers belonging 
to SORT, restore the PI/I registers, and branch to the appropriate exit 
routine interface. Control then returns via register R14 to the point 
in IBMDKST immediately following that from which the branch to SORT was 
originally made. 

When the module IBMDKST is called, it saves the contents of register Rl 
and obtains a ISA large enough to hold two nine word save areas,, for use 
by routines in IBMDKST, and some workspace. The first of the two 
dynamic save areas (DSA) is for use by the sort/merge routines, and the 
second for use by the exit routines at exits E15 andESS. The second 
save area is addressed back to the first via a normal back chain slot 
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and contains a flag which is recognised by the PL/1 housekeeping 
routines. The back chaining and flagging are required to cater for 
atnoriral terirdnation of a user exit. Such terrrination could happen 
under the following conditions: 

1. The exit procedure teririnates due to an error. 

2. The exit procedure executes a GO TO statement naming a procedure at a 
level equal to or higher than the procedure calling the sort routine. 

Having obtained the LSA, the module then generates a parameter list, 
from the arguments passed to it by the caller. The generated list is 
set up in the first DSA so that arguments corresponding to it can be 
passed to the sort routine. The list contains the addresses of user 
exits, if specified, and return code for interprogram communication. 

After the parameter list has been set-up, the following actions are 
performed before a branch and link is made to the sort/merge program: 

1. The sort module is loaded by the interface module, the amount of 
store being determined from the STORAGE parameter in the OPTION 
statement passed to IBMDKST. 

2. The exit code is stored in the first save area, followed by the 
address of the first save area. Contained in the exit code is an 
error handling routine. 

A word in the implementation defined appendage of the TCA(the word is 
originally set by STXIT) is reset to point to the error handling 
routine, mentioned above, which handles program interrupts for the 
duration of the sort. 

If there is no exit routine, control returns directly to IBMDKST. 
Finally, the program check exit is reset for control to pass to PL/I 
error handling routines if required and a return made to the calling 
program. When the call to sort is one that does specify an exit 
routine, then on exit from, sort, the following actions are performed. 

1. A branch is taken to the exit code in the first save area of the 
interface module. This exit code picks up the address of the first 
save area, saves the registers of SORT, re-establishes the PL/I 
environment and branches to an address in IBMDKST. 

2. The program check exit is reset so that control passes to PL/I error 
handling routines if required. 

3. Parameters for the exit routines are set from information passed by 
SORT. 

H, On completion of the exit routine, control returns to SORT via 
IBMDKST. SORT then, dependent upon the return code it is passed, 
continues processing as required. 

If abnormal termination of the exit routine occurs, a flag X*02*, set to 
ON in the second byte of the second save area, is recognised by PL/I 
housekeeping routines. In consequence, PL/I housekeeping gives control 
to the interface module IBMDKST which terminates the sort routine in the 
following manner. 

If the sort is being terminated at an E35 exit, the interface module 
returns control to sort with a return code of 4 to see if any sorted 
records remain for output. If such is the case, SORT returns control, 
and the address of the next sorted record, to IBMDKST. In consequence, 
IBMDKST continues to return to SORT with a return code of 4, until SORT 
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has passed the address of every outstanding record. When this 
circumstance prevails, lEMDKST returns to SORT with a return code of 8 
tc teririnate that routine. 

If the sort is being terminated at an E15 exit, no further records are 
passed tc the SORT program, and termination proceeds as described above 
for the E35 exit. 

Control then passes tack to the housekeeping routine. 

Note: If the SORT/WERGE program No.5736-SMl is used, then there is no 
need tc terminate the SORT routine in the manner described above. 
Instead, lEMDKST merely returns control to SORT with a return code of 16 
tc terminate that routine. Control will then pass back to the 
housekeeping routine. 

Error and Exceptional Conditions 

Return is made to caller via the Link Register with a special return 
code value (8) . 

Linkage 

Rl = A(PLIET) 

PLIST = A (Sort control statement string locator) 

A (Record control statement string locator) 

A (Option control statement string locator) 

A (PL/I procedure to be invoked as an E15 exit) 

A (PL/I procedure to be invoked as an E35 exit) 

A (Inpf il control statem.ent string locator) 

A(Outfil control statement string locator) 

Calls 

SORT/MERGE program Exit routines. 

Called By 
Compiled code. 
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APPENDIX A: LIST OF MODULES 



The following list of modules is arranged in alphabetical order of the 
last three letters of the rrodule naire. This ordering is used to save 
the reader the trouble of remembering whether the module is prefixed 
with IBli^B or lEMD. 



Name Function 



lEMBAAH ALL, ANY (simple and interleaved arrays) 

IBMBAIH Indexer for interleaved arrays 

IBMEAMM structure mapping 

IBMBANM STRING built-in function 

IBMBAPC PROD (arrays with fixed point integer elements) 

IBMBAPF PROD (arrays with floating point elements) 

IBMBAPM STRING pseudovariable 

IBMBASC SUK (arrays with fixed-point elements) 

lEMEASF SUM (arrays with floating-point elements) 

IBMBAYF PCIY built-in function 

lEMBBBA AND, OR operations (byte-aligned bit strings) 

IBMBBBN NOT operation (byte-aligned bit strings) 

lEMEBCI INDEX (character strings) 

IBMBBCK Concatenate, REPEAT (character strings) 

IBMBBCT TRANSLATE (character strings) 

IBMBBCV VERIFY (character strings) 

IBMEBGB BOOL (bit Strings) 

IBMBBGC Compare (general bit strings) 

IBMBBGF Assign (byte- aligned bit strings) and Fill (general bit 

IBMBBGI INDEX (bit strings) strings) 

IBMBBGK Concatenate, REPEAT, General Assign (bit strings) 

IBMBBGS SUBSTR SID 

IBMBBGV VERIFY (bit Strings) 

IBMBCAC Conversion director (arithmetic to character) 

IBMBCEB Conversion (bit to bit) 

IBMBCBC Conversion (bit to character) 

lEMBCBQ Conversion (bit to pictured character) 

IBMBCCA Conversion director (character to arithmetic) 

lEMBCCB Conversion (character to bit) 

IBMBCCC HIGH, LOW, Assign (character strings) 

lEMBCCQ Conversion (character to pictured character) 

IBMDCCS String conversion director bootstrap 

lEMECE Conversion (fixed decimal - free decimal - float - fixed 

IBMBCGP Check input (pictured decimal) binary) 

lEMBCGQ Check input (pictured character) 

IBMBCGT Table of powers of ten 

lEMBCGZ Set a subfield of a complex number to zero 

IBMBCH Conversion (fixed binary - float - free decimal) 

lEMECK conversion (fixed decimal - free decimal - fixed decimal) 

IBMBCM Conversion (pictured decimal to packed decimal) 

lEMBCO Conversion (packed decimal to pictured decimal) 

IBMBCP Conversion (bit to fixed binary or float) 

lEMBCR Conversion (fixed binary or float to bit) 

IBMBCT Conversion (decimal constant to packed decimal) 

lEMECU Conversion (binary constant to float) 

IBMBCV Conversion (packed deciiral to E format) 

lEMBCW conversion (packed decimal to F format) 

IBMBCY Conversion (fixed binary to fixed binary and float to 

float) 
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IBMDEFL FLCW option 

IBMEEOC ON-COde 

IBMBEOL CNLOC built-in function 

lEMEERC CHECK systeiT action 

IBMDERR Error handler 

IBMDEVO Event Variable operations 

IBMDIEC Inter language housekeeping 

lEMDIEF Interlanguage housekeeping 

IBKDIEF Interlanguage housekeeping 

lEMDJDS DISPLAY 

IBMOaDI DATE built-in function 

lEMDJDY DELAY 

IBMDJDZ DISPLAY without EVENT 

lEMDJTT TIME built-in function 

IBMBJWI WAIT (array events) 

IBMDJWT WAIT (multiple events) 

IBMGJWT WAIT (single event) 

lEMDKCP Checkpoint/restart interface 

IBMDKDM Dump bootstrap 

lEMDKST SORT interface 

IBMBMAL SQRT (long float real) 

IBMEMAS SQRT (short float real) 

IBMBMAX SQRT (short float complex) 

lEMEMAY SQRT (long float complex) 

IBMBMBL EXF (long float real) 

IBMBMES EXP (short float real) 

IBMBMBX EXF (short float corcplex) 

IBMBMBY EXP (long float complex) 

IBMBMCL ERF, ERFC (long float real) 

lEMEMCS ERF, ERFC (short float real) 

IBMBMDL LOG, L0G2, LOGlO (long float real) 

lEMEMDS LOG, L0G2, LOGlO (short float real) 

IBMBMDX LOG (short float complex) 

lEMEMDY LOG (long float complex) 

IBMBMGL SIN, SIND, COS, CCSD (long float real) 

IBMBMGS SIN, SIND, COS, COSD (short float real) 

IBMBMGX SIN, SINK, COS, COSH (short float complex) 

lEMBMGY SIN, SINK, COS, COSH (long float complex) 

IBMBMHL TAN, TAND (long float real) 

lEMBMHS TAN, TAND (short float real) 

IBMBMHX TAN, TANH (short float complex) 

IBMBMHY TAN, TANH (long float complex) 

IBMBMIL SINK, COSH (long float real) 

lEMBMIS SINK, COSH (short float real) 

IBMBMJL TANH (long float real) 

lEMEMJS TANH (short float real) 

IBMBMKL ATAN, ATAND (long float real) 

IBMEMKS ATAN, ATAND (short float real) 

IBMBMKX ATAN, ATANH (short float complex) 

lEMBMKY ATAN, ATANH (long float complex) 

IBMBMLI ATANH (long float real) 

IBMBMLS ATANH (short float real) 

IBMBMML ASIN, ACQS (long float real) 

IBMBMMS ASIN, ACOS (short float real) 

IBMBMOD ADD (fixed decimal real or complex) 

IBMBMPU MULTIPLY (fixed binary complex) 

IBMBMPV MULTIPLY (fixed decimal complex) 

lEMBMQU DIVIDE (fixed binary complex) 

IBMBMQV DIVIDE (fixed decimal complex) 

IBMBMRU ABS (fixed binary complex) 

IBMBMRV ABS (fixed decimal complex) 

IBMBMRX ABS (short float complex) 

IBMBMRY ABS (long float complex) 

lEMEMUD Shift and assign/load (fixed decimal real) 

IBMBMVU Multiplication and Division (fixed binary complex) 



1200 


bytes 


220 


bytes 


160 


bytes 


490 


bytes 


1500 


bytes 


16 


bytes 


500 


bytes 


910 


bytes 


1000 


bytes 


740 


bytes 


80 


bytes 


130 


bytes 


590 


bytes 


15C 


bytes 


390 


bytes 


800 


bytes 


220 


bytss 


820 


bytes 


140 


bytes 


1440 


bytes 


170 


bytes 


170 


bytes 


290 


bytes 


300 


bytes 


460 


bytes 


260 


bytes 


140 


bytes 


140 


bytes 


640 


bytes 


410 


bytes 


340 


bytes 


260 


bytes 


230 


bytes 


230 


bytes 


390 


bytes 


310 


bytes 


310 


bytes 


370 


bytes 


320 


bytes 


260 


bytes 


230 


bytes 


230 


bytes 


240 


bytes 


160 


bytes 


260 


bytes 


200 


bytes 


470 


bytes 


360 


bytes 


260 


bytes 


260 


bytes 


260 


bytes 


180 


bytes 


350 


bytes 


260 


bytes 


290 


bytes 


290 


bytes 


280 


bytes 


460 


bytes 


580 


bytes 


210 


bytes 


540 


bytes 


120 


bytes 


130 


bytes 


360 


bytes 


290 


bytes 



210 



Licensed Material - Property of IBM 



Page of LY33-6011-1, Revised October 1976 by TNL LN33-6179 



IBMBMW Multiplication and Division (fixed decimal complex) 

IBMBMVW Multiplication (long and short float complex) 

IBMBMWX Division (short float complex) 

IBMBMWY Division (long float complex) 

IBMBMXL Integer exponentiation (long float real) 

IBMBMXS Integer exponentiation (short float real) 

IBMBMXW Integer exponentiation (short and long float complex) 

IBMBMYL General exponentiation (long float real) 

IBMBMYS General exponentiation (short float real) 

IBMBMYX General exponentiation (short float complex) 

IBMBMYY General exponentiation (long float complex) 

IBMDOCL OPEN/CLOSE bootstrap 

IBMBPAF Controlled variable management 

IBMBPAM AREA management 

IBMBPGO Reset CHECK enablement 

IBMDPGR Storage management 

IBMDPIR Program initialization from system 

IBMDPJR Program initialization from caller 

IBMDPOL Overlay space saving module 

IBMDPOV Overlay 

IBMBPRC Return code module. 

IBMDRIO Record I/O interface module 

IBMBSAI Input conversion director (A, P, and B formats) 

IBMBSAO output conversion director (A format) 

IBMBSBO Output conversion director (character-P and B formats) 

IBMBSCI Input conversion director (C format) 

IBMBSCO Output conversion director (C format) 

IBMDSCP COPY 

IBMDSCV Conversion fix-up bootstrap 

IBMDSDI Data-directed input 

IBMDSDJ Data- directed input 

IBMDSDO Data-directed output 

IBMDSED Edit-directed I/O housekeeping 

IBMDSEE Edit-directed combination module 

IBMDSEH Edit-directed combination subset module 

IBMDSEI Edit-directed input 

IBMDSEO Edit-directed output 

IBMBSFI Input conversion director (F and E formats) 

IBMBSFO Output conversion director (F and E formats) 

IBMDSII GET FILE initialization 

IBMDSIO PUT FILE initialization 

IBMDSIS GET or PUT STRING initialization 

IBMDSLI List-directed input 

IBMDSLJ Li St- directed input 

IBMDSLO List-directed output 

IBMBSMW Missing output width module 

IBMBSPI Input conversion director (P format) 

IBMDSPL PAGE, LINE, and SKIP 

IBMBSPO Output conversion director (P format) 

IBMDSTF Stream input transmitter 

IBMDSTI Stream print F-format transmitter 

IBMDSXC X and COLUMN format items 

IBMBTOC COMPLETION pseudovariable and Event variable assignment 

[DFHPLII CICS initialization bootstrap 
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APPENDIX B: LIST OF LIBRARY MACRO INSTRUCTIONS 



Name Function 

IBMBXCH Chains a specified element to a specified chain. 

IIBMBXCIC Map of CICS appendage 

IBMBXDBG Debug macro. 

IBMBXDBL Debug macro. 

IBMBXDBM Debug macro 

IBMBXDC Dechains a specified element. 

IBMBXDD Provides a DSECT map of the Data Element Descriptor (DED) . 

IBMDXDM Provides a description of the options for the dump modules 
and a description of the dump control routine's Dynamic 
Storage Area (DSA) . 

IBMBXDP Provides a description of the picture part of the Data 
Element Descriptor (DED). 

IBMBXEC Gives the code required by routines which raise CONVERSION 
or set up information for data conversion conditions. 

IBMBXER Provides DSECT maps of the following blocks: 

Dynamic Storage Area (DSA) . 

Dynamic On Control Block (ONCB) 

Static On Control Block (ONCB) 

Diagnostic File Block (DFB) . 

Dump Block (DUB). 

Dynamic Storage Area (DSA) for IBMDERR. 

Interrupt Control Block. 

IBMBXET Generates the message text modules. 

IBMBXFLT Provides DSECT maps of the heading for the flow statement 
table and for the meanings of the bits in the flag byte of 
each statement number entry. 

IBMBXEV Provides a DSECT map of an Event Variable (EV) . 

IBMBXFV Frees a Variable Data Area (VDA) . 

IBMDXGC Contains the GOTO code that is copied into the TCA by 
module IBMDPII. 

IBMBXGV Gets a Variable Data Area (VDA) and returns its address. 

I3MBXIC Initializes two adjacent chain fields to zero for use by 
macros IBMBXCH and IBMBXDC. 

IBMBXIN Performs the initialization functions required by a library 
module. 

IBMBXIOS Provides a DSECT map of the Request Control Block and the 
parameter list for record I/O statements. 
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IBMBXKY Checks the key given in the KEYFROM or KEY option for 

regional files and converts it into the "search address" 
for the record. For Regional (3) files the macro also moves 
the key to the buffer to the buffer area. 

IBMBXLB Defines all symbolic register and offset names and provides 
DSECT maps of the Task Communications Area (TCA) , library 
workspace (LWS) , and the On Communications Area (ONCA) . 

IBMBXML Moves any number of bytes from one area to another. 

IBMBXPL Map of the DOS PLSTART parameter list. 

IBMBXPLC Map of the CICS initialization parameter list. 

IBMBXRRI Provides a record checking table for reference in library 
modules. 

IBMBXRRT Generates code to set up the registers for record checking 
or generates an offset table for use in record ckecking 

IBMBXRT Provides the code necessary to return from a library module 
to a caller.' 

IBMBXRWS Defines the workspace of all record I/O transmitters to 
enable them to pass information to the record I/O error 
modules. 

IBMBXSIO Provides a DSECT map of the Stream I/O Control Block 
(SIOCB). 

IBMBXSY Provides a DSECT map of the Symbol Table. 

IBMBXTAB Provides a DSECT map of the tab table. 

IBMBXVKD Provides a DSECT map of the Key Descriptor. 

IBMBXVRD Provides a DSECT map of the Record Descriptor. 

IBMBXWT Provides DSECT maps of an EVTAB element. 

IBMDXCOM Provides a DSECT map of the DOS communication region. 

IBMDXDGT Debug macro. 

IBMDXDTF Provides a DSECT map of the Define The File Block (DTF). 

IBMDXFCB Provides a DSECT map of the File Control Block (FCB) . 

IBMDXOSA Defines a DSECT for Open/Close workspace. 

IBMDXTA Provides a DSECT map of the implementation defined 
appendage of the Task Communications Area (TCA) . 
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APPENDIX C: REACTIVATION OF DEBUGGING MACRO INSTRUCTIONS 



The program listings of many library modules contain debugging macro 
instructions which were used during the development of the library. The 
release version of the library does not contain any instructions 
corresponding to these macro instructions; the debugging facilities 
that they provide are therefore normally inactive. This appendix 
describes how the debugging macro instructions can be reactivated. 

Debu gging Facilities 

The facilities provided by the debugging macro instructions are as 
follows: 

1. Module trace ; This facility is provided by macro instruction 
IBMBXDBM, which is included once in every library module. When the 
instruction is executed it causes the 5th, 6th, and 7th letters of 
the module name to be entered in a push-down stack, thereby 
providing confirmation that the module has been entered. The push- 
down stack holds the names of the last twelve modules entered. 

2. Label Trace and General Register Dump ; This facility is provided by 
macro instruction IBMBXDBG. When this macro instruction is 
expanded, it generates a label of the form DBXYZnn, where X, Y, and 
z are the 5th, 6th, and 7th characters of the module name, and nn is 
a numeric value unique to the particular appearance of the macro 
instruction. When the macro instruction is executed, it stores this 
label in a trace table. Optionally, the contents of specified 
registers can be stored in the trace table following the generated 
label . 

3. Bit Setting : This facility is provided by macro instruction 
IBMBXDBG as an alternative to the label trace facility. When the 
macro instruction is executed, it sets a bit in a known position in 
a bit table, thereby providing confirmation that control has passed 
through the section of code containing the macro instruction. 

The debugging information generated by these macro instructions is 
stored in a table known as BUGTAB. Storage for this table is obtained 
at program initialization by macro instruction IBMDXDGT. 

The debugging facilities are controlled by operands on a "debugging 
level" macro instruction; IBMBXDBL. This macro instruction appears at 
least once in every module that contains other debugging macro 
instructions. It has the following format: 

I NIL I, 
IBMBXDBL LEVEL=JBIT|, REGl=n, REG2=m, TYPE=CHANGE, PHASE=|DEV | 
I LAB I , I RELEASE | 

I REG I 

The operands are optional and can be coded in any order. The default 
values are: LEVEL=BIT, REG1=13, REG2=11, PHASE=RELEASE . 

LEVEL=NIL causes macro instruction IBMBXDBG to generate no executable 
instructions . 
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LEVEL=BIT selects the bit-setting facility provided by macro instruction 
lEMEXDBG. 

LEVEL=LAB selects the label trace facility provided by macro instruction 
lEMBXDBG. 

LEVEL=REG selects the label trace facility with the general register 
dump option. Registers REGl through REG2 are dumped. 

If an IBMBXDBL macro instruction appears more than once in a library 
module, TYPE=CHANGE is coded on the second and subsequent appearances. 

PHASE=RELEASE deactivates all the debugging facilities. This option 
overrides all ether options. 

Reactivating the debugging ma cro instructions 

In order to reactivate the library debugging facilities you will require 
a source module for each module that you wish to reactivate, source 
modules for modules IBMDPIR (PL/I resident library) and IBMDPII (PL/I 
transient library), and a library macro library. 

The source modules must be modified as follows: 

1. Locate the IBMBXBDI macro instructions in modules IBMDPIR and 
IBMDPII and change the PHASE operand to PHASE=DEV. This is 
necessary to obtain storage for the BUGTAB. 

2. Locate the IBMBXDBL macro instructions in the modules whose 
debugging facilities you wish to reactivate, change the PHASE 
operand to PHASE=DEV, and code the LEVEL operand for the required 
debugging facility. 

The modified modules must now be reasseirbled and link-edited onto the 
appropriate system library. The following methods are suggested. 

For modules of the PL/I resident library, reassemble the module and 
catalog it onto the relocatable library with a new, unique, name. 
Specify the new name on an INCLUDE statement in the link edit step of 
your PL/I test program; since the entry point names of the modified 
module are unchanged, references to their will be resolved to the 
modified module rather than to the unmodified module. 

For modules of the PL/I transient library, the name of the modified 
module cannot be changed, since the modules are loaded by name. It is 
therefore necessary to rename the unmodified version of the module on 
the core image library, and then to link edit the modified version onto 
the core image library. 

The modules can now be executed by means of a PL/I program. 

Recovering the debugging inforiration 

The information in the BUGTAB is recoverable only in a dump. Your test 
program must therefore produce a dump at the required point in its 
execution. 

The BUGTAB is located immediately after the program management area, and 
its address is located in field TBUG in the TCA. Field TBUG is at 
offset 3C (hexadecimal) from the start of the TCA. Module trace 
information is located at the start of the BUGTAB. Each module name in 
the trace table is prefixed by a number between 1 and 12. Modules 1 
through 6 are at the start of the BUGTAB; modules 7 through 12 are 
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iirirediately before the start of the BUGTAB. Module 1 is always the most 
recently entered module. 

If LEVEL=LAE or LEVEL=REG has been coded on an IBMBXDBL macro 
instruction, the label trace will appear in the BUGTAB as a series of 
labels of the form DBXYZnn, where X, Y, and Z are the 5th, 6th, and 7th 
characters cf the module name, and nn is a numeric value unique to a 
particular appearance of an IBMBXDBG macro instruction. The macro that 
has generated the particular label can be found by examining the program 
listing of the reassembled module. 

If LEVEL=REG has been coded, each label in the BUGTAB is followed by a 
dump of the contents of the registers specified in the REGl and REG2 
operands. 

If LEVEL=BIT has been coded, then each IBMBXDBG macro instruction will 
set a specific bit in the BUGTAB when it is executed. The particular 
bit set by IBMBXDBG is referenced by a note in the macro expansion. A 
typical note appears as: 

SET BIT 2 IN BYTE CF FIELD EZJDS OFFSET HEX 136 FROM BIT-TAB 

The bit table (BIT-TAB) starts at the first fullword boundary after 
character string 'BIT TAB* in the BUGTAE. 
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Part 2: Flowcharts 



The chart references for the flowcharts in this part are derived from 
the last four letters of the module name; for example, the flov/chart 
for module IBMDERR is on chart DERR. The charts are arranged in 
alphabetical order of the last three letters of the chart reference. 
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•SD MULTIPLIERS ♦ 
•FOR MINOR STR'S* 

♦ OWN DIMS * 

* * 
***************** 



► ALIGN TO * 

► MAXIMUM * 
» REQUIREMENT • 

***************** 



•0 3 • 

* CI • — , 

* • l<- 

**** I 
i»10 V 



***************** 



*GET CONTAINING ♦ 
*STR SC AND ADD ♦ 

* PTRS * 

* * 
***************** 



*****D2********** 

* CALC PARTIAL * 
*AO-VO FOR THESE* 
» DIMS ADD TO » 

* AO-VO IN SD * 

* * 
***************** 



***************** 



*03 • 

* El * , 

* * ^< 

**** I 
»20 V 

*****£1********** 



***************** 



.♦HAS IT BEEN*. 

MAPPED 

♦.(REFER) ?.* 



*****F 2*** ******* 

* COPY 1ST BASE * 

* EL BOUNDS FOR * 

* THESE DIMS TO * 
*OTHER BASE ELS * 

* IN MIN STR ♦ 
***************** 



*****FU* ********* 

* * 

* ADD ADJACENT ♦ 

* STRUCTURE ♦ 
•OFFSET TO AO-SO* 

* * 
***************** 



»****H2*********< 

SUBTRACT « 
ALIGNMENT • 
INCREMENT ♦ 

►♦**♦♦♦♦♦♦♦♦♦•♦*« 

»*•* 

•03 • <- 

J2 *-> 



*****Hlt ********** 
*CONVERT TO BYTE* 

* AO-SO t IF * 

* UNALIGNED BIT * 

* STORE BIT • 

* OFFSET ♦ 
***************** 



.♦IS THIS*. 
. • THE MAJOR *. 
. STRUCTURE 7 . 



*YES 
I 



*****jl|********** 

♦ CALC AO-VO IN * 

* BYTES OR IP * 

• UNALIGNED BIT • 

* BYTE<A0)*8 - ♦ 

♦ BIT(VO) * 
***************** 



***** 
*0l» ♦ 
♦ A2* 
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♦ A2 ♦— 1 

• * i 



MM390 

A2 *. •**i»*;^3********** 

.♦ ♦. ♦ ♦ 

.♦ MAJOR ». YES * STORE LENGTH ♦ 

*. STRUCTURE ? .* >♦ AND OFFSET IN •- 

•. .♦ * TARGET WORD ♦ 

* . ,* • • 



• OH ♦ 

♦ B2 ♦-> 



*«**Aa********* 

> RETURN TO * 

> CALLER * 



MM380 

* * 
•SET ADD PTR TO ♦ 
•NEXT CONTAINING^ 

* STRUCTURE • 

* * 





C2 •• 




.♦ ANV •. 


5fES 


•BASE ELS AT* 


• 


.SAME LBVEL A3 


1 


♦. STR ? .• 


1 


• • .• 


</ 


♦ . . • 


*••** 


* NO 


•01 • 


1 •••* 


* D5» 


•02 



• *** 

• 04 • 

• F2 ♦—1 

• * I 

MM500 V 

•••**P2 **•****•** 
•GET VDA AND AD • 
•AOORS CALC ADD * 

• START S END * 

• ADDRS ♦ 

• • 



• ••• 
•0<4 * 

• E<» *— 1 

* * 1 
HH800 V 

• •»**£|| ***•*«*•*• 

•STEP THRU BASE * 
•ELS UPDATING AD* 
•UNTIL LAST BASE^ 

♦ El ♦ 

* * 



•••••F(t***«***^«* 

• * 

• GET AO-SO FOR • 
•THIS LAST BASE • 

• ELEMENT * 

• • 
*****••••****•*•* 





G2 


• , 




.• START •. 


VES 


.•ADD SAME AS* 


. * 


.ACTUAL START 


1 


• . 7 .• 


1 


• . .• 


^ 


*. .♦ 


•*•** 


* NO 


•OX • 






• P2^ 






* • 






* 







*****H2* •*•****** 



*••*•**••*•**•*•* 



• *•« 

♦01 * 

->* J2 • 



,♦ 

.* 
NC 



****•}] II*** ******* 
*GET AO-VO CALC • 
•VC-SO THEN CALC^ 

• A (LAST EL IN • 

• ARRAY) - SO • 



* ADO LENGTH OF • 

* LAST EL * 



************••*•• 



«****Kt|********** 
•STORE RESULT AS* 

* « OF BYTES * 

* OCCUPIED BY •• 

* STRUCTURE * 

* * 
••*•*****•***•*•« 



****KS********* 

* RETURN TO * 
->* CALLER 4 

* 4 

**•*****•**«**• 
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• STROCTORE * 
•CORREMT LENGrH < 

* « 



*STORE A(TARGET)* 
*0R IKTARSET SD* 

GET •<- 

* ll(DESCRIPTOR) * 

• * 



->♦ 



•STRING BUILT IK* 
-• FUNCTION ♦ 

• • 



C2 



NM020 

♦ • YES .* *. « 

♦ F3 •< ♦. EHTRY H ? .*- 

♦ * *. .* 
•••* *. .* 



* • 

* BaiU3 * 
->*ECOIVALENT ACD ♦ 

* AND AC • 

* • 



•****C 3* ********* 

* SET UP FIXEC * 
*TARG DESCR WITH* 

->*ZERO LENGTH OR * 

* ZERO CURRENT * 

* LEN * 
***************** 



ELEMENT A !*< — ,< 
*.BASE EL ?.* I 

* YES ***• 



•****PX •••**•*•*• 

* * 

* ADD CURRENT * 

* LENGTH TO ♦- 

* ACCUMULATOR * 

* * 
***************** 



NM290 



D3 *. 

.♦IS NEXT*. 

MINOR 4 

STRUCTURE 

. DINNED? .< 

*. .* 

*. .* 

♦ YES 



NN220 

*****£ 3* ********* 
*6ET VDA LENGTH * 
*S* »ELS OF BASE* 

* ELS IN MINOR * 

* STRUCT * 

* * 
***************** 

**** 



**** 
NM270 

•****F 3* ********* 



***************** 



Gl *. 

* •• 

ENTRV A ? 



*****G2 ********** 

* FIND CURRENT ♦ 

* LENGTH ( ADDR * 
-* OF SCALAR *< 

* ELEMENT * 

* * 
***************** 



NO .* BASE EL *. 
*. DIMENSIONED ?.< 



•ASSIGN 

•-*-•-•-•-•-*.*. 
*ASSIGN ELEMENT 
* TO TARGET 



*****H4********** 
*ASSIGN * 

•-*-••*-*-*••-••• 

* PASS CURRENT * 

* LENGTH t ADDR * 

* OF EACH EL * 
***************** 



NM370 

*****G5**** ****** 
**CALL IBMBAIH ** 
•* TO SET UF ♦* 

>** TABLE TO ♦* 

** INDEX THRU ** 
** ARRAy ** 
***************** 



*****IJ5***«****** 
* ASSIGN • 
*-*-*-•-*-*-*-•-• 

* PASS CURRENT * 

* LENGTH t ADDR * 

* OF EACH EL * 
***************** 



1WII40 
YES .« 



* YES 
< 



•***K1********* 

* PAD TARGET IF < 
» NECESSARY t * 

* RETURN 4 



NM4S0 .*. 

K« *. 
•*** .* EL IN *. **** 

► * NO .* DIMMED *. YES * * 

► D2 ♦<, *. MINOR .♦. >* F3 * 

► * *. STRUCTURE. * ♦ < 
**** *, 7 ,* *•** 
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ASSIGN .*. 

A3 ♦. 
. * * . 


NM900 


.♦ ♦. YES 
♦. ENTRY A ? .♦ 


• ADD LENGTH TO 
>* ACCUMULATOR 



•*******•******< 



B3 ♦. 

.» EL IN *. 

OIMNEC 

MINOR 

.STRUCTURE. 

». ? .♦ 

* . .♦ 

♦ YtS 



t^t^tC^it ********* 

♦ * 
♦STORE ADDRESS i* 
♦CURRENT LENGTH ♦ 

♦ IN VDA SLOT ♦ 

♦ ♦ 
*♦♦♦♦♦♦*♦♦*♦♦•♦*♦ 



.♦END OF VDA ♦. YES 

. (END OF MINOR. ♦ 

♦. STRUC) .♦ 



♦♦♦♦DS^^^^^^^^^ 
♦RETURN TO MAIN « 
>♦ ROUTINE * 



NH520 

♦*♦♦ ♦£}♦♦♦ ♦♦♦***♦ 
♦SIMPLE EXCHANGE^ 

♦ SORT ELEMENTS ♦ 

♦ INTO CORE ♦ 

♦ ADDRESS ORDER ♦ 

♦ ♦ 
*♦♦♦♦♦♦♦♦*♦♦♦*♦♦♦ 



*****f I* ********* 

♦ * 
♦SET RETURN ADDR^ 

♦ TO EXIT FROM ♦< 

♦ HAIN ROUTINE ♦ 

♦ ♦ 
♦♦♦♦♦♦♦*♦*•♦♦*♦♦♦ 



** ♦♦ 

♦♦CALL IBMBERRB^^ 
-♦♦ RAISE ♦♦<- 
♦♦ STRINGSIZE ♦♦ 
♦ ♦ ♦♦ 

♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



NM560 
YES 



F3 



• ♦. 



-♦.STRINGSIZE ? .♦ 

.♦" 

♦. . ♦ 

♦ NO 



♦.BIT OR CHAR ?.♦ > 



****QH********* 



♦♦ASSIGN USING *♦ 

^♦♦IBMfiBGKC BIT ♦♦- 

♦♦ ASSIGN ♦♦ 



NM680 ^ 

♦♦♦♦*J3 ♦♦♦♦♦♦*•♦♦ 

♦ ♦ ♦♦ 
**ASSIGN USING ** 
♦♦IBMBBGKA BIT ♦♦- 
•♦ CONCATENATE ♦♦ 

• • ♦♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦* 
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IBMBAPMA 

* * 

* ENTRY < 

* 4 



*»t*^2H* ********* 

* * 

♦ BOILD ♦ 
->*ECUIVPLENT ADD » 

♦ AND AD ♦ 

* • 
***************** 



PM005 

♦FIHD NO OF ELS ♦ 

♦* Cj£T VDA with ♦ 

* 8 BYTES FOR » 

* EACH • 

* • 



**** 
PM060 



**************** 



A' 

*PH200 * 

•FORM DESCRIPTOR*<- 
*roR EACH EL IN * 
» TORN ♦ 

***************** 



PM140 

tt^^»^2** ******** 
**CALL IBMBAIHA** 
♦♦ TO SET OP ♦♦ 
*♦ TABLC TO **<- 
♦» INDEX THRO *♦ 
♦♦ ARRAY »♦ 



t*»tte2**** ****** 

*FINO ALLOCATED * 

* LENGTH t * 
-•ADDRESS OF EACH* 

* ARRAY EL IN * 

* TORN ♦ 
^t*************** 



.*MORE THAN 1*. NONE 
. DIMENSION 7 .* 



PH120 V 

♦FIND ALLOCATED * 
» LENGTH AND * 
•ADDRESS OF EACH* 

* ARRAY EL * 

* * 
***************** 



*PM200 * 

*-*-*-*-*-*-•-*-* 
*FORM DESCRIPTOR*- 
♦POR EACH EL IN • 
♦ TORN ♦ 
•*•**••*******••• 



>*** 
4 

D3 « 

4 

»•** 



*****FI«********** 
♦FIND ALLOCATED * 

♦ LENGTH AND ♦ 

♦ ADDRESS OF * 

♦ ELEMENT ♦ 

♦ * 
***************** 



*PM200 ♦ 

*-*-*-♦-*-♦-»-*-» 

* FORM CORRECT *- 
♦DESCRIPTOR FOR ♦ 

♦ £L IN VDA ♦ 

***************** 
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♦ CALC BIT ADDR * 

♦ FOR UNALIGNED ♦ 

♦ BIT ELS • 



* * 

* STORE ADDRESS * 

• AND LENGTH IN • 
» VDA SLOT ♦ 

• * 



*****C 3* ********* 
*SET VARYING BIT* 

* ON IN * 

* DESCRIPTOR IF * 

* NECESSARY * 

* * 
*•**•********•*•* 



.* *. NO 

*.END OF VDA 7 .* 

*. . * 



****D5********* 
* RET URN TO MAIN * 
>* ROUTINE < 
* < 

*************** 



PH230 V 

•****£3* ********* 

* SIMPLE EXCHANGE* 

* SORT ELS INTO * 

* CORE ADDRESSS * 

* ORDER * 

* • 
***************** 

**** 

* * 

* F3 *-> 



***«*pi**«* ****** 
** ** 

**CALL IBMBERRB** 
*• TO RAISt **<- 
♦* STRING3IZB ** 
• * •« 

•••*•****••*•*••• 



F2 *. 

. ♦ *. 

3 .* *• 

-•.STRINGSIZE 7 . ♦<- 

* . .* 

*. . * 

♦• .♦ 

* NO 



PH3S0 

*****Q2* ********* 
**CALL IBMBCBBA** 
** TO ASSIGN ** 
*• SOURCE TO *»<- 
ELEMENT 



• * 



• * 



***************** 



PM265 
BIT 



*****GI|********** 



-*.BIT OR CHAR 7.* >* 



T" 



**••**********•*• 



**••****•*•**•*** 



**** 

* 4 

->♦ F3 * 

• 4 

***• 



****K3********* 
» RETURN TO « 
► CALLER < 
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•******•***•*** 



k****B3 ********** 



***************** 



• ♦ • 

C3 *. 



->*. BINARY SOURCE. *- 



••***D2********* 



**••******••**•* 



***¥*^X**** ****** 
*IBHBCCQ • 

*-•-*-*-*-*-*-*-* 

♦ CONVERT TO «< 

* PICTURE * 

• • 
***************** 



*****P1********** 
*IBMBCCC * 

*-♦-*-*-♦-«-*-•-♦ 

* ASSIGN TO *< 

* PARGET * 

* * 
***************** 



****G2*** ****** 



***•*****«**•*• 



****B1********* 

* * 

* RETURN < 

* « 
*•*****•*•***** 



****E 3* ********* 
* 
* 

SELECT ROUTINE *<- 

* 

**************** 



*****F 3* ********* 

* * 

* CALL RTN. TO * 

* CONVERT 1ST. *- 

* HALF * 



*****QI4********<. 
• 

* SET E/F 

* PARAMETERS AS 

* APPLICABLE 
* 
**************** 



.*. 



***************** 



*****K 3* ********* 



••***•*•*•****••* 



*****Fil ********* 
* 
* 
->* SELECT RTN. 
* 
* 
**************** 



•****GU********** 

* CALL RTN. TO ♦ 
*CONVERT 1ST. OR* 

* REMAINING * 

* SUBFLD. * 

* * 
****•*•*••••*••** 



NO .♦ ♦. 
*. COMPLEX 7 .* 



*****KU********* 
* 
* 
-* INSERT "I" 

* 
* 
**************** 



*****C5* ********* 

* * 

* CONVERT * 
->* PRECISION(AND * 

* SCALE) * 

* * 
***************** 



*****Ij5* ******** 



* INSERT" P". SET 
>* EXPONENT . 
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• INITIALISE * 

* REGISTERS AND * 

♦ SWITCHES ♦ 



****C1********* 

> CONVERSION 

> ERROR 



«< ♦.BLANK SOURCE?. » 



*****D 3* ********* 

* * 

* * 
->* SET FLAG TO tt •- 

* • 

* * 



• C5« 



E2 *. 

VALID? 



.♦SOURCE ALL ♦. NO 
. IMAGINAilir? i* — 



• • 

* SET FLAG TO 8 * 
->*T0 INDICATE TWO*- 

* PARTS * 

♦ ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



•-*-*-*-♦-*-*-•-• 



♦«♦♦♦***♦♦♦♦♦♦♦♦♦ 



♦♦♦♦H2^^**^^**** 
POINT TO * 
IMAGINARY * 

SOBFIELO. RE3ET*<- 
FLAG TO ♦ 



♦♦♦♦K2^^^****** 



SET DUMMY 

TARoer 



• ****£lt **••**•••* 



♦♦♦♦♦*♦♦♦♦♦♦••♦♦♦ 



**«**F(| ••**••***• 



♦♦♦♦♦*♦♦♦♦♦•«•*♦♦ 



♦-•-♦-♦-•-•.•-•■ 



H« *. 

.* ♦. 

» » 

FLAG VALUE? 



♦ ♦•♦({^♦♦♦♦♦♦♦** 
» « 

> RETURN • 



COMPLEX ♦. NO 
TARGET? .♦ > 



•lOMBCGZ 
•-♦-•••-•-•-•-«- 

• ZCKU TARGET 
♦IMAGINARY PARI 
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BNrRT 

* « 

* IBNBCSZJ^ 4 

* « 



*****B1********* 



***••*•*•••**•*• 



V 

• ♦. 

=1 •. 

. * *. 

.* REAL PART *. YES .< 

♦ .TO BE ZEROED?.* >•. 

•. .• A « 

*. •* 
♦ • .• 
HO 



•****Cli********** 



->* ZAP IN ZERO * 



••«*******«••«••* 



••***D3* ********* 



.* >• STORE ZERO 



*****E2********** 

* MAKE OUHHY * 
•SOURCE FLD AND * 

* DEO Of FIXED *- 

* DEC. ZERO * 

* * 



**••**••**•***••• 



•••**E3********** 
*IBMBCODP * 



♦•*«•*•••**•••••* 



**#**P1********** 



****••*•*•••****• 



V 
.*. 

F« *. 



->*. FINISBED7 

*. .* 
*. .* 



->* SAVE ADDRESS * 



****G5* ••*•••** 
» « 

* RETORM « 
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•«***e3********* 



• PLACE ADDRESS * 
♦OF ENTRY ^B~ 1N»<- 

• TCA • 



* • 

* CAICOIATE * 
*LBHGTB OF TABLE* 

* NEEDED * 



C3 •. 

.* *. 

A .•HBICH ENTRY*. C 

--*. POINT .♦— 

*. .* 



.♦. 
D3 *. 

.* IS ♦, 

.* THERE A *. NO 

* . FLOW . * 

*. STATEMENT.* 
*. TABLE.* 
*• .* 
* YES 



• ••••Cl|********** 



* FIND TBE LAST * 
->* ENTRY MADE *- 



*01 * 

* E«l •— , 



y-\ 



*•** 

*****D<t********* 



*RESTORE ALL TBE 
->• REGISTERS 



E2 *. 
.* *. 

.*DOES LENGTH*. 

. - HEADING 7 .* 

*. .* 

*. .* 

*. .* 

NO 



*****f2********** 

* GET SPACE FOR * 

* TABLE BY * 

* EXTENDING TBE * 

* DONMY OSA • 



* FIND TBE LAST 

* ENTRY IN TBE 
•NONBER PART OF 

* TBE TABLE 



MOVE CURRENT 

STATEMENT 

NUMBER INTO 

TEMP STORAGE 



* ADO LENGTH OF * 

* PARAMETER * 

* PASSED TO * 
*RETDRN REGISTER* 

* VALUE * 



RETURN TO • 
COMPILED CODE • 



* * 

*FIND NUMBER OF * 



IN 



C5 *. 

.*NAS THE*. 

.*IAST ENTRY *. 

— >*. IN OR OUT .* 

*. TYPE .* 

*. .* 

*. .* 

* OUT 



.*. 
D5 *. 

.*IS TBS *. 
YES .*DBSTIMATICN*. 

*. THIS OSA 7 .* 

«. .* 
*. .* 
*. .* 
* NC 



*INOICATE BCD IS* 

* RBODIRBO BY • 
*NBXT OUT NUMBER* 

* * 
•*••*••*•**•••••* 



•RESTORE ALL TBE* 
• REGISTERS • 



*****G2********** 

• • 
*SET UP HEADER. • 
*PLACB AOOR. OF • 

* TABLE IN TCA * 



•••**G3********* 
• 

* PICK UP TBE 

* INDICATIVE 

* FLAGS 



****G5********* 
*l]C»COTB CODE IN* 
• FtOM TABLE * 



* OVBRfffilTB * 

* •GOTO* IN TBE * 

* TCA * 



.*. 

H3 *. 

.•USE FIG*. 

.* VALUE TO *. 

.GOTO CORRECT .* 

*. CODE .* 

*. .* 

*. .* 



RETURN TO 
I8M0PIRA 
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• *•* 




•02 * 




• • 1 






• •• 




A1 *. 




.*IS LAST*. 




.• ENTRY IN ♦ 


OUT 


*. TABLE IN OR 


• , 


♦. OUT ? .• 


J 


*. .* 


I 


*. •* 


* 


* IN 


• •*•• 




• 01 • 




• D4^ 




• * 




• 


. •, 




B1 *. 




.♦IS BCD ♦. 




.* REQOIREO *. 
*. FX>R THAT 




• 


• . ENTRY . • 





****C1* •**••*** 

FIND THE BCD 

FOR THIS 

SECTION 



•••••01**^******* 

• • 

• NOVE IN THIS * 

• OUT STATEMENT * 

• NUMBER * 



♦ 01 • 
->♦ Dk 



♦ •♦• 

♦ 02 ♦ 

♦ A3 •— 



.* IS LAST *. IN 

, ENTRY IM OR .* 

•. CUT 7 .♦ 



♦ ♦♦♦♦ 

♦ 01 • 

♦ V^* 



C3 •. 

.♦IS BCC ♦. 
RECUIREC ♦. NO 
FOR THIS .♦ 

. ENTRY 7 •♦ 



♦ ♦♦♦♦ 
♦01 ♦ 

♦ OH^ 



•♦♦♦♦03 ♦♦♦♦•♦•♦♦ 
♦ 

♦ FIND BCC ( 

♦ PLACE IN THE 

♦ TABLE 



L 



♦♦♦♦ 

♦ 01 « 

>♦ tn 



♦ ♦♦♦ 






♦02 • 






• AS •— , 






♦ ♦ 






♦ ♦♦♦ 






♦ 




♦ 


• FLACE 


COT 


♦ 


•NUKEER I» 


TAELE^ 


♦ 




♦ 


♦ 


♦ ♦♦♦♦ 


♦ 
• ♦ 



♦ FIND ROKBER ♦ 
♦EEFCRE ENTRY TO^ 

♦ CN-UNIT • 



♦ ♦ 


♦♦♦DS^^^^^^^^^^ 

FIND BCD OF • 

CCNTAIKIKG • 

EtCCK • 




♦ ♦♦♦ 

♦ 01 ♦ 
!.->♦ C» ♦ 



♦ELIMINATE LAST ♦ 
♦ENTRY IN NUMBER^<.- 
♦ TABLE ♦ 





F3 


♦ , 




,♦ ♦. 


PROC 


.♦ WHERE WAS ♦. 


»*♦ 


. CALL FROM . ♦< 




♦ . .♦ 




♦ . .♦ 


' 


♦ . .♦ 


♦ ♦♦♦♦ 


> CH-0 


♦ 01 ♦ 






♦ D«^ 






♦ ♦ 






♦ 




' 




• •. 




G3 •. 




• • •• 


YES 


• WAS LAST ♦. 




.BCD ENTRY AN .♦ 




♦.ON- 01 


<IT ?.• 



♦ ♦♦♦ 
♦02 ♦ 

♦ FH ♦-: 

♦ • JL 

♦ ♦♦♦ V 

.♦. 

F« ♦. 

. • •. 

IN .* WAS LAST •. 

♦. ENTRY IN OR .♦ 

♦• OUT 7 .♦ 



•♦•••H3^^*»^»**« 

♦ 

•FIND INTERRUPT 
♦NUMBER FOR OOT 
♦ NOMBER 






♦♦♦♦♦J3 


»♦♦♦ 


♦ ♦♦♦ 


»♦ 








♦ 


♦PLACE THIS 


•IN 


•♦ 


♦NOKEER 


IN 


TABLED 








♦ 




»♦♦♦ 


♦ ♦♦♦ 


♦ 
»♦ 



•♦••♦K3*^^*^*^^** 



• PLACE THE ECS • 
•IK TliE SECTION • 



♦ ♦♦♦♦ 

♦ 01 ♦ 

♦ c«* 
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****A3********* 
* ENTRir FROM • 
> CALLER * 

» « 



*****B3********** 



•••*******••*•**• 



•****C3********* 



••****•••******• 



*****D3 ********** 



•****£2 ********** 



OH .* IS IT 

*. ON-TYPE OR 

* . ERROR . 



*****tlt********** 



***************** 



* * 

* USE VALUE TO * 

* PICK UP BASIC * 
•NO. FROM TABLES* 

* * 
***************** 



*****G3********** 

* * 
*ELIMINATE BITS * 

* THRO 2 IN * 

* BJfTs; 2 * 

* * 
***************** 



*****H3********** 



***************** 



****J3********< 



****](3********* 

• RETURN TO • 

* CALLER * 
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****A3 ••*••*•** 

> * 

► ENTRY « 



* * 

* GET LWS AND • 
*AOORESSABIiITy,* 

* ZEBC tOCATCR • 

* * 



•****C3* *•*••••• 



MO 

Dl '•. 
.* *. 
.*IS THIS AN *. 
•.ON-UNIT OSA ?.*<- 



****02 ********** 

* 

FIND THE * 

A(ATTACHERS *< 

DSA) * 



.*. 

D3 *. 

.* *. 

.*IS THIS THE*. MAJ 

DUMMY OSA .* 1 

*. .* 



****E2********* 



.* IS THIS A *. 

>*. PROCEDURE DSA.* 

*. ?. .* 
*. .* 



•••••F2********** 

* * 

* CHAIN BACK * 
*REOUIRED NOMBER*<- 

* OF SAVE AREAS * 
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. *. 

F3 •. 

.•IS THE *. 
NO .* ENTRY *. 

*. ADDRESS IN .* 

*.NEXT DSA .* 
*.BACK .* 
♦. .* 
* YES 



•••••G3 •••••••*•« 

* * 
*FICX UP BRANCH * 

* REGISTER FROM * 

* PREVIOUS DSA * 



*****I]3********** 

• * 
•FIND THE ENTRY • 
•POINT NAME AND • 

• LENGTH * 



****K3********* 
• RETURN TC « 
> CALLER « 
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****hl ********* 

* CHECK SYSTEM » 

* ACTION » 

* « 
**•****••****** 



•••**B1********** 



***************** 



•****C2********** 



EROOS 

*****01********** 

* • 
*SET VDA LEHSTB * 

• TO l|»NO OF ♦ 

♦ SXMTABS ♦ 

• * 
*«•«*••••****•••* 



BROBO 9 

*****gX* ********* 



*••*•••*•*****•** 



*****ri •«*•***•** 

• * 

*iU)DReSS OP VOA • 

* TO PLIST FOR ♦- 

* IBMBSOOC * 

• • 
•***•••••*••••*•• 



ERllO 

• •***IIX*«** ****•• 



ERias 

• ••••C;3*»******** 



* SET UP SIOCB • 
->• AND PLIST FOR *- 

* IBMBSIOE * 



•*••**•***•****** 



***************** 



*****Cl|********** 
*IBMBSIOE * 
*-*-*-«-•-*.•-•-* 
>♦ *- 

*INITIALISE PUT * 
* * 

•*****•***•**•*** 



• ****0I| •••*•*•*•* 



*****C5* *•*•***• 



**************** 



ADDRESS 
IBMBSDOC 



*•***•*********•« 



«****£3*(**«***** 

* • 

* CLEAR LAST 2 * 
•WORDS OF SyMTAB*<- 

* LIST IN VDA * 

* * 
**«•******•*•**** 



••***P2 ********** 



* ADDRESS FIRST * 
>• SrHTAB LIST *- 



*•*•••**••*••*•*• 



EROSO 

*«***63** ******** 



•GET ADDRESS OF * 
>* SYMTAB FROM *< 

• LIST * 

* * 
••«••**********•* 



G« *. 
.* *. 

.* NEXT LIST *. 
EXISTS .* 



ERISO 

*****E5* ********* 
*IEMBSDOD/C * 
*-*-*-*-•-*-*-•-* 



***************** 



•****P5« **••*•••• 
*IEMBSIOT • 
*-*-*-*-*-♦-♦-•-• 

* * 

* TERMINATE PUT • 

* • 
•*•**•••*•••••••• 



****G5*** ****** 
> RETURN TO * 
» CALLER « 



H2 



*. 



H3 



ER130 



YES .* CHECK 

*. ENABLED FOR .*<- 

*. THIS ID .* 

*. .* 

*. .* 



****•**•*••«****• 
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» HARDWARE * 
* INTERRUPTS * 



* • 
*KOVE REGISTERS • 

>• RO-RY TO • 

♦ CURRENT DSA • 



••••*E2********** 

* * 

* SAVE CLC PSW * 
•FROK SAVE AREA » 
•TO CURRENT DSA * 

* * 



•••••C2*** **••**• 

• • 

• MOVE ER010 IN • 

• FSN IN SAVE * 

• AREA * 



• ••••[)2*****«*** 

• EXIT 
•-•-•-*-•-•-•-•- 

• RETURN TO 

• SUPERVISOR 



ER010 V 



••••A3***^***** 

• ERRCR ANC CN < 
» CCNDITICNS < 

• « 



• 

•HAVE REGISTERS 

• IR-RY lU 

• CURRENT CSA 



• KOVE A(ERRC) 
— >• INTO TERA 



••••£3 ••••••••• 

GET OSA 



V 
.♦. 

H2 *. 



YES .* IBMBERRA 
*. ENTRY 



NO 
*••• 
•03 • 
->• D3 ♦ 



• ••••Ij3***«****** 

• • 

• CONVERT * 
>*INTERRUPT CCDE •« 

• TO PL/1 CCDE ♦ 



•gi • 

• U« • — I 

• • I 

• ••* I 

100 9 



• PLACE ERROR 
->* CODE IN ONCA 



• YES 

• 02 • 
->• A1 * 



L 



•••• 

• 07 * 
>• *<• 
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♦02 » 

♦ A1 * — , 

* * 1 
U10 V 



•****A1********** 

♦ • 
» CONVERT • 
♦INTERRUPT CODE ♦- 

♦ TO PL/1 CODE ♦ 

♦ * 



»»*»th2********** 



•»*•••••*•******* 



UNDERFLOW 



,• INTERRUPT •. NO 
QUALIFIED .♦ 



.* EXPONENT 
. OVBRFLOW 



, • FP DIVIDE *. NO 
. OR OVERFLOW .• 





• IGNORE • 


. YES 


* 


INTERRUPT 

•• .♦ 

• . .* 


' 1 




* NO 


***** 








*08 * 








* B2* 








* • 








* 






' 




•I 


***G2******** 


1* 










SET SIZE CODE 






IN CSA 


***•—* 








•t 




»* 



*SBT IGNCRC eZT 
->* IN TCA 



I**** 
•03 « 
->♦ E2 
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* ••« 
•03 • 

* E2 ♦-> 

* • 

ER180 

*****£2********* 

* 

* FIHO CORRENT 

* DSA 



**•* 








♦ 03 • 








• C3 •- 


"I 






* * 






ER150 


• , 






D3 




• . 




.♦ 




•. 




YES .* 




*, 




•.ON CONDITICH . 


• 


*. 




.•• 




• . 




.• 




• 




• 






'• 


NO 








♦ •♦♦ 






•07 * 






->♦ A« 


• 



.• CONDITION *. NO 

*. ALHAYS .* 

*. JENABLSD .* 



,• 

• YES 
•••• 

• 04 • 
->♦ Bl ♦ 

• • 
•••• 



▼ 1 

u 



.* IS *. YES 

->•• CONDITION .♦ 1 

•.ENABLED? .• 1 



> NO •«•** 

I**** »QH • 
•08 * * Bl* 
->♦ B2 • • • 
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*•*• 




•o« • 


• • 1 

• *•* V 


BR210 .*. 


B1 *. 


.♦ •. 


.:• 88SS5IJ§S *:.:^!!, 


*. .* 


•• .♦ 


•• .* ■ ' 


• NO ***** 


**** 


*0S • 


•OH * 


* A2* 


* CI •-> 


* * 


* * 


• 


•*•* 




ER220 V 


•****CI*i 


>******** 



BR230 



D1 



<- 

.*. 



.* ANY ON *. NO 

*. CELLS IN OSA .* 

*. .* 
*. •• 
*. .* 
* YES 



B1 *. 



X8240 



E2 •. 



***«*E3********* 



.* TRT FINDS *. NO .•MAJOR TASK *. NC 
*. MATCHING ON .* >*. . CUMNY OSA .* 



CELL .* 
.* 

.* 
YES 



YES 
**** 
•07 * 
->* A3 



ER2S0 . V 



I^*** 
*06,« 
>>* A3 
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•05 ♦ 

• A2 •—■ , 

270 * 



**••*•***»**••*** 



ER280 



C3 •. 
• • ♦. 

• KATCHING « 
ONCB IN OSA 

• • . < 

*. •* 



O*. CHECK PREFIX 



* 


.* END 

.STATIC 


CF •. 

CHAIN 


• 




». 


.* 






♦ . 


• "yes 
• ••* 








• 08 • 
*■->• B2 • 





E3 


*. 


EU *. 




.* 


• . 


.* •• 


NO .• 


CNCB 


SAYS *. 


YES .• PREFIX •. 


r— — *. 


ENAiLED .* 


r ♦. SPECIFIES .• 


• 




. ♦ 


•. ENAELEC .• 




*. 


.* 


•. .• 


1 


• . 


. • 


• • . • 


**••* 


> VES 


• NC 


• 08 • 






1 •••• 
1 •08 • 
l->» B2 • 


• B2* 

• • 










• 






• • 
*••• 


ER330 
• •• 


• •F3« 







ER3II0 



ER360 

• ••••Gll*^^ ••••••• 



.• CYNAMIC *. NO 

•.ONCBS IN OSA .* 

•• • • 



ER350 



.• KATCHING *. NO 

— >•. CNCB IN CSA •• 

• • •• 



G5 •• 

• • •• 

.•MAJOR TASK •. 

->•. DUKKY DSA .< 

• • .• 

• . .• 

• • .• 

YES 



H5 




• . 
• . 








♦ . 


YES 


CHECK 


• , 






.• 


1 


, 




.• 


1 


• 




• 


« 




• 


NO 


• •••• 




1. 


• ••• 


• OH • 




• 07 • 


• C1» 




->• A3 


• • • 



NO .• CNCB SAYS •. 

•• ESTAE. •• 

♦ . •• 

*. . • 
•• •• 
• YES 
I •••• 

•06 • 
«.->• A3 • 

• • 

• ••• 
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• 06 * 

• A3 *- 



A3 •. 

.* ♦. 
CNCB • . 
SFECIFIES . 
. SNAP .* 



ER390 



SET SNAP FLAG 
FCB ESK 



.* CNCB *. YES 

• . SPECIFIES .* , 

*. SYSTEM .* I 

•• •• 1 
• . .• V 



I 



• ••*• 
•07 • 

• A3^ 

• • 



ER«00 



•-•>•-•-•-•-•-*• 






.* GO TO *. VES 

► . STATEMENT .• 

• . ONLY . • 
•• •• 



•••*E3*^**^**i 

MOVE A(EIIRA) 



• •••£l|******^** 

• FEISFORM GO TO * 
>• STATEMENT • 

• • 
••••*••••••*••* 



EB««0 .*. 

F« *. 



•••*H2********* 
OS-DNIT 



•••••J2^** ••*••* 



■• •. YES 
RETURN? .• 1 

♦ . .♦ V 



• KC ••••• 






•08 • 






• B2^ 






• • 






• 






.♦. 






G« *. 






• • *. 






.* •. YES 






• • SaBRG .• 1 






•• •• 






*. .• 






♦ . .• '1 






• NC •♦•♦♦ 






•07 • 






• C5^ 






• • 






• 






• *• 






U« •. 






• • •• 






.• •. NC 






•• CONVERSION .• 






• • •• 






•. .• 






». .• 1 






• YES ••••• 






•07 • 






• E3^ 






• • 






• 






V 






.•ONCHAR *. 


• •••) 

* 


• 


••CR CKSCORCE^. KC 


• 


• 


•. USED IN ON •• 


->^SET 


ERROR CODE • 


•• UNIT .• 


• 


• 


♦• .• 
• . .• 

• YES 


• 


• 












• ••• 








♦ 01 • 








i->« tin • 








• • 








*••• 


ER4S0 


' 






• • 




•RETU8K TO RETRY* 






• • 
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• *** 

• 07 * 

• A3 ♦ — 1 



.♦COKKENT CN •• VES 

♦.SYSTEM ACTION. ♦ 

♦. •♦ 



♦ ♦♦• 

♦ 07 ♦ 

♦ AH ♦ — -1 

♦ ♦♦♦ 1 
510 V 



*****;ki|********«* 



••*♦♦*♦••••*•**** 



EB800 

•IBKBEBCA * 

•PERFORM SYSTEM *<- 
• ACTION • 



♦♦•• 
♦ 08 ♦ 
->• B1 



♦.ANY MESSAGES .*- 



ERS30 
YES .4 



♦lEKCESKA ♦ 

♦- ♦- •-*.•- *- •. *. ♦ 

->^PSINT SYSTEM < ♦ 

♦ SNAP SYSTEK ♦ 

♦ MESSAGES ♦ 
•••♦•♦♦♦*•♦*••*•♦ 



• ♦♦♦ 




♦ 07 ♦ 




♦ C5 ♦— 




* ♦ 




♦ ♦♦♦ 




ER5«0 


< 


♦♦♦♦♦cs^ 





•>^SET ERROR CODE 



.♦ 

. .♦ 
* YES 



r 
. ♦• 



I ♦♦♦♦ 

♦ 03 ♦ 
l->^ E2 * 

♦ • 

♦ ♦♦♦ 



••♦♦El* •♦***••** 
SET FINISH COOE^<- 



•••• 

• 07 ♦ 

• E3 ♦-> 



• ••• 
ERS50 .*. 

£3 * 



L 



•••• 

•03 • 
>• £2 « 



• . .* 
*. .* 

• NO 



• . 
.• 



I 



ER570 .•. 

F3 ♦. 



.* •. NO 
♦ . FINISH .♦ 1 

•• •• 1 

• . •• V 



1 



••••• 

• 08 • 

• E2^ 

• • 



63 



♦ . 



NO .* FINISH *. 

•. SIGNAIED .* 

*. .* 
*. .* 
*. .* 
• YES 
*••• 
•08 * 
->♦ B1 • 

• • 

• ••• 



L 



•••••H2********** 



•LOCATE CURRENT • 
•TASE DONHY DSA • 



• RETURN TO PIR • 
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**** 




*••* 


♦08 * 




• 08 • 


• B1 •--, 




• 32 »— , 

♦ * 1 


* • 




*••• 
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ER700 .♦. 

E2 ♦. 


••**B1********* 


.♦ 


• RETURN TO 


♦ 


NO .♦ ItKEEHRA 


♦ CALLER 

* 






• 


• . 



ER730 « 

»****C2********* 



•***«D2********* 

• 

*CHANGE ADDRESS 

• IN TERA TC 

* ER7<I0 



****E2********* 



ER740 

*KESTCRE PSW AND* 

• REGS TO • 
•INTERRUPT SAVE * 

• AREA * 

• • 



•••**G2********** 
•EXIT • 
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* i 

* ENTHY A OR 3 * 

* i 
************** 4. 



I3N!BIECC 

♦♦♦*A5********* 
♦FNTRY C CALLED « 
♦WHEN SETOBNING < 
* TO PL/I * 

*************** 



*****ij2 ********** 
» XIN MACRO TO * 

♦ SAVE 'REGISTERS ♦ 

♦ 5 GET LWS ♦ 

♦ SAVEAREA ♦ 

♦ * 
***************** 



»****B5 •♦*♦*♦*♦♦< 



***************** 



.♦ TEST ♦. 

. ♦ AND SET ♦. 

.COBOL FLAG IN. 

♦.IBVBILCl .♦ 



»****D2 ♦♦*♦♦♦♦*♦♦ 
» IF ILBMNSO • 

♦ EXISTS SET TO ♦ 
♦INDICATE COBOL ♦ 

♦ NOT KAIN PGM, ♦ 
♦(ANSI CBL ONLY)^ 
•**•****••******* 



lEOOl .♦. 

E2 ♦. 
.♦ IS ♦. 
YES .♦ THERE A ♦ 

♦. CONTROL VDA 

♦.(CTL) YET.* 
♦. ? .» 



♦NO 



♦TGET ♦ 

*-*-*-•-•-*-•_*_* 

♦ GET NCN-LIFO ♦ 

♦ SPACE FOR CTL ♦ 

♦ VDA ♦ 
***************** 



»*»**Q2 ********** 

* * 
♦WRITE A (CTL) IN^ 
♦BILCl S COPY CR^ 

* INTO CTL ♦ 

* * 
*******•***••*•** 



IE002 

**}i2******* 
♦WRITE COBOL^ 

♦ INTERRUPT « 
♦ INFORMATION 

♦ INTO CTL, < 
♦I.E. ZEROS ♦ 

*•***•*••** 



♦ GET A VDA BY ♦ 
>♦ XGV MACRC 6 ♦ 

♦ CHAIN TO CTL ♦ 

♦ * 
***************** 



lEOOtt 

*****Q3********** 



♦ STORE A (PL/ I ♦ 
♦DSA) IN NEW VDA^ 



*•***••*••••***** 



**P3******* 

* * 
♦ISSUE (NOLL) ♦ 

♦STXIT AND PGM. < 
♦MASK FROM CTL^ 

* * 
*•*•**•**•• 



IE005 

• *F1|******* 

♦STXIT WITH ♦ 

♦ R0->IE007, 

♦ Rl-> APPNDG. 

♦ SAVEAREA 

* « 

*********** 



**CS ******* 
♦ISSUE PL/I < 
> STXIT 6 SET 
PGM. MASK TO 

* « 

*********** 



*****D5* ********* 

♦ UNCHAIN i * 
♦RELEASE LATEST ♦ 

♦ INTERLANGOAGE ♦ 

♦ VDA ♦ 

♦ • 
****•****•***•*•* 



IE006 

****na********* 

♦ RESTORE PEGS ' 

♦ ( RETURN TO * 

♦ COMPILED CODE ' 
**•***«««***••* 
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IE007 

****p,2 ********* 

* CONTPCL HERE < 
*WHEN INTERRUPT * 

* OCCURS. « 
*************** 



*****^-2 ********** 

* FIND 6 CHAIN * 
*LWS BACK TO PLl* 

* DSA, E RESET * 

* CR->TCA ♦ 

* ♦ 
***************** 



♦ ♦♦♦*C2 *♦*♦**♦*♦♦ 
♦SAVE OLD lAR, £* 

♦ REGS 12 £ 13 * 
♦FROM INTERRUPT ♦ 

♦ IN LWS ♦ 

♦ - * 
***************** 



I IF UNDERFLOW I 
I COPY l» ByTES OFI 
I CODE TO FIEI,l5 J 
; BEFORE IE015 * 
***************** 



*****£2********** 

* * 

* WRITE ADDRESS ♦ 

* OF IE015 INTO ♦ 
♦INTERRUPTED lAR^ 

* * 
***************** 



**F2******* 

♦CHANGE CR £♦ 

♦DR IN APPNDGE^ 

♦TO PL/ I VALUES. < 

♦ PLI STXIT ♦ 

♦ ♦ 

*♦♦*♦**♦*♦♦ 



*****(;2 ********** 

♦ * 

♦ SET FLAGS FOR ♦ 

♦ POSSIBLE ♦ 

♦ ABNORMAL GOTO ♦ 

♦ * 
***************** 



*****^2 ********** 
♦PLI ERR HANDLERS 
*-*-♦_*-*_♦-*-*-* 

♦ RECOVER REGS ♦ 
♦FROM APPENDAGE ♦ 

♦ AND CALL ♦ 
***************** 



IE015 

*****J2 ********** 



***************** 



♦HAS A r,o TO* . 

IE EN 
♦.EXECUTED?. ♦ 



♦ISSUE STXIT^ 

■ WITH R0-> < 

IE016, 

■ R1->APPNG. * 
* SAVEAREA ♦ 

*********** 



*****m********** 

* * 

* COPY REGS 0-5 ♦ 
♦FROK APPENDAGE ♦ 

♦ INTO LWS ♦ 

♦ * 
***************** 



*****Q-i** ******** 

♦OPCODE='00' ♦ 
♦_*_♦_*_*_♦_»_*_♦ 



***************** 



IE016 . V 

♦♦^♦*D3^^^*^*^^^^ 

♦ ♦ 
♦RESTORE APPDG. ♦ 

♦ SAVE AREA TO ♦ 
♦STATE AT IE007 ♦ 

♦ * 
***************** 



**£"}******* 

* * 
ISSUE ' 

'COBOL, INTER' 
STXIT ' 

♦ ♦ 
*********** 



****p-i********* 

* ISSUE EXIT TO ♦ 
♦RETURN TO POINTS 

♦ OF INTERRUPT * 
*************** 



♦YES 
I 



***************** 



****Qli********* 
' RETURN VIA < 
* ABNORMAL GOTO < 
> CODE * 

*************** 
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IBH3IEFA 

* BNTRX A Of) B < 

* « 



»****B3 *********< 
► XI N MACRO • 



• •• 

C3 ♦. 
***• .* *. 

♦ • ON .♦ TEST ♦. 

♦ H3 ♦< *. FORTRAN INIT. . • 

♦ • •. FLAG .♦ 
•*•* *. .* 

*. .* 
* OFF 



• • 

• RE- SET • 
•FORTRAN STXIT «♦<- 

• P6M. MASK • 



XES .* DOES *. 

*. CONTROL VOA .* 

♦. EXIST? .♦ 



*****E3** **••••*• 
♦TGET • 

* GET CTL ( * 

• INSERT OWN * 
♦ADDRESS ( A<TCA« 



lEOOl V 

**«««F3***«**«**« 
*IBCOM« * 

• INITIALISE * 

• FORTRAN * 

• * 



•****63********** 
*COPX INTERRUPT * 

* INFORMATION * 

* FROH PC TABLE * 

* TO CTL • 



• H3 •-> 

• * 

IE002 

• GET VDA OP 16 • 
•BYTES AND CHAIN* 
*T0 CTL i INSERT* 

• PLl OR * 

• • 



A .* *. B 

—•.WHICH ENTttY? .* — 

• . .♦ 

•. .♦ 



lEOOU 

••Jtt******* 

•ISSUE STXIT* 

* WITH * 

>*ADDR"IE023. SIT* 

*tGtt KASK" 'e'* 



****X2********* 
» 4 

» RETURN * 



•***Ktt********* 

t * 

» RETURN « 
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IBH6IEFC 

• 4 

• ENTRY C OR D » 

• i 



»****B2*********< 
► XIN MACRO « 



»*C2******* 
•ISSUE PL/1 * 

► STXIT t SET 
PGM. MASK TO 

► 'E' 

* « 

*********** 



•****D2********** 

* UNCHAIN t * 
•RELEASE CURRENT* 

* INTERLANGUAGE * 
» VDA • 

* * 
•«**********«*•** 



*****B3********** 

• * 

* GET ADDRESSES * 
>*0F TARGET i DED* 

♦ FOR RESULT * 

* * 
*•«*******•**•*** 



RESULT 
FLOATING 
. POINT? 



**** 
I t 
> H3 « 
I « 

**** 



D3 *. 
.♦RESULT *. 
.* FIXED BIN? *. BIT 
.IF NOT. THEN .♦ 



Bli'. 



E006 .*. IE012 

CH *. •****<;;5*******«** 

.* *. *STORE STRING IN* 

.* IS STRING *. NC •ALIGNED SPACE {• 

->*.EYTE ALIGNED?.* >*CREATE LOCATOR * 

♦ . .* * FOR IT. * 



.* 



***************** 



•****Q5********** 

*CBB * 

,32 *-*.*-*-*-*-»_*-♦ 

, * , < *CALL BIT-TO-BIT* 

F2 ♦ CONVERSION * 
• ROUTINE. • 
***************** 



E3 *. 

.♦ •• 

PRECISION 



****«£5***«***««* 



->• STORE k BYTES • 

• * 

* * 
***************** 



**** 
• * 
» F2 •-> 



****F2********* 
» RESTORE • 

• REGISTERS 

• RETURN 
•••****4 - 



TERS t •< — 1 
URN * 

******** 

***t 



*****F3********** 



*STORE HALFWORD * 
< * in TARGET ♦ 



l< 

• *** 

* * 

* F2 • 

* * 
*•** 



***************** 



* * 








**** 




* * 




♦ H3 * 




* * 




***• 
1 




IE009 .♦. 


lEOll 


H3 *. 


*****Hlt* 



. • FLOATING *. EXTO *STORE EXTD REAL* 

PT. .♦ >*PART FROM FO t * 

*PRECISIOW?.* * F2 * 



*****J2********** 



***************** 



lEOlO V 

•****J3* ********* 
* * 

R£AL*STOR£ REAL PART* 
>f * FROM FO ♦ r 

1 • -I 

V ***************** V 



*****JU********** 

* * 

* STORE EXTD. * 
*IMAGINARY PART * 

* FROM F« ( F6 * 

* * 
***************** 



• *** 
) t 

' F2 < 

» 4 
**** 



• *** 

> « 

> F2 « 

> i 
**** 



*****K3********** 



*STORE IMAGINARY* 
-* PART FROM F2 * 



***************** 
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**• tAX********* 
» ENreREO FHOM * 
* SUPERVISOR ON < 
» INTERRUPT * 



• • 

• SET UP PL/I * 
r— >* ENVIRONMENT ( < 

* STXIT • 



»**«*BX****«**«*4 

> KKKR LMS < 
' CURREST « 

► SfcVEAREA » 



*-*-•-*- 



-•-*-*-* 



* SET FLAGS t • 
•INVOKE INTRUPT • 

* HANDLER * 



I * 

» STORE BAStS t * 
►INrSR.tUPT ADDR • 
> IN LWS • 



HERE ay 

NOR.VAL 
RETURN? 



• UNCHAIN ( « 
->*B£L£AS£ CUKREin* 

* VDA * 



SI ». 

. • CAN ♦ . 

.» IWTKRRUPr ♦. 

.BE TREATED BY. 

•.FORTRAN? .♦ 

♦. . ♦ 

». . ♦ 



••***fX********** 
•COP If TO LHS BAO» 
» INSTftOCTIOS t • 

♦ BOOTSTRAP TO » 

♦ FETURS FROM ♦ 
♦FORTRAN LIBRARY* 



*****03*****«**** 

♦ XiiSlCRc • 
•RBGIST'-RS FROM ♦ 

♦ ORi :,INAL » 

♦ INTEP.KUPT IN ♦ 

♦ FORIR^S S.A. ♦ 



• »»»l)b»* ******* 
» RETUrtH VIA « 

• AflNORMAi. GOTO • 

• HBCHANISH * 



COMMON PATH IN 

UNINTERRUPTED 

PROGRAM STATE 



****G1********* 

SET LOCAL 

ADDRESS IN 

STORED tAR AND 

txir 



♦ISSUK STXir* 
• TO USE « 

FORTRAN SAVE 
>AR£A i GO TO • 

• 1E028 ♦ 



IE02b V 

•JPCO0E= X'3U' ♦ 

• SVi* CONNECTS • 

• 5AVE>Vi^iJ^ ( * 

• RETUK;<S HERE » 



• FILL IN ♦ 

♦ F0RrkM4 ♦ 

• SAVEARtA k < 
•ISSUE FORTRAN* 

• STXIT ♦ 



Ib030 

•****j 2* ******** 

*1LFFINT 

*-*-•-•-•-*-•-•- 
— >*I:JV0KE FORTRAN 

• ERROR HANDLER 



*»***H2*** ******* 

* » 

* RtSTORE BASt * 
*kEGI3TERS FROM *- 

* LHS * 



IE036 

**£3******* 

* ISSUE * 
•PRIVATE STXIT* 

~>^GIVING TSAI AS < 
* SAVEAREA. • 

• INTERRUPT • 



IE038 ^ 



••••C 3* •••••••• 

•F.XIT TO RESTORE^ 
• EVERYTHING. • 
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GET ADDRESSES OF 
AVAILABLE SPACE 
FROM COMMUNICA- 
TION REGION 



E1 -1 



CALCULATE ORIGIN 
& LENGTH OF ISA, & 
SET PAR LIST FOR 
PIR 



LOCATE CTL AFTER 
END OF ISA 



G1 



SAVE REGSINSA-1 
IN CTL VDA, & MAKE 
SA2 CURRENT 
SAVEAREA 



WRITE A(CTL) IN 
IBMBILC1 



J1 



MOVE CALLER'S 
INTERRUPT INFO. & 
PGM. MASK TO 
CORRECT SLOTS IN CTL 



CALLS PJRB WHICH 
THEN CALLS IE005 



SAVE REGISTERS IN 
LWS-1 & MAKE LWS-2 
NEW SAVE AREA 



VBEF 




TAIL' CODE TO TIDY UP 
BEFORE RETURN TO PIR 



ENTERED HERE 
BEFORE CODE BODY 



CLEAR TOP BYTES 
OF NON-PLI SAVE 
AREAS 



J 



(EXECUTED WHEN ^\ 
RETURNING FROM 1 
PL/l'S CALLER / 



PROVIDES NAME 
'ILC-r FOR PL/I 
TRACE 



XIN MACRO MAKES 
LWS CURRENT 
SAVEAREA 



MOVE PC DATA AND 
PROGRAM MASK INTO 
VDA 




03 



C5 

WRITE BR &R0 FROM 
FORTRAN INTOSA-2. 
MAY CONTAIN FN. 
VALUE OF RTCODE 



REARRANGE DSA 
CHAIN TO PUT SA2, 
DUMMY & SHORT S.A. 
ABOVE CALLER 



D5 



SET UP REGISTERS 
SO THAT GOTO TO 
DUMMY WILL NOT 
RAISE FINISH 



THEN RETURN WILL BE TO CALLER, 
IE014, PIR & IE002 IN THAT ORDER 



G2 

GET DSA REQUIRED 
BY PL/I & FILL IN 
NAB, ALWS & 
BACKCHAIN 




MAKESA1 CURRENT 
DSA 



(^ 



I PIR J 



STORE A(DUMMY) IN 
VDA & OR IN CTL & 
COPY ERROR INFO. TO 
VDA FROM CTL 



EXECUTED AFTER PIR RETURNS 
AND BEFORE RETURN TO PL/l'S 
CALLER'S CALLER 



SET FLAGS IN NEW 
DSA & SET CURRENT 
-ENABLE CELL 



MAKE DSA 

NORMAL 

PLIDUMP 



CHAIN APPEAR 
IN CASE CALLED 




(RESTORE REGS 
AND RETURN WITH 
DR=A(NEW DSAt 



CLEAR ILC FLAGS & 
RESTORE SUBROUTINE 
RETURN CODE TO BR 



-^ 



/res 

yiSTE 



SET LR-> return 
CODE IN 
CHARACTER FORM 



RESTORE OTHER REG 
ISTERS& RETURN 



y \LIBf 



GO TO FORTRAN 
LIBRARY END-ROUTINE 



D 
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V RP( 



EXECUTED WHEN 
RPGn TERMINATES 



3 



RESET RPGH 
TERMINATION 



CI 



RECHAIN DSASWITH 
RPG II S.A. ABOVE 
SHORT S.A. 



G 



RETURN WILL BE TO 
IE014, PIR, IE002 
AND RPG TERMINATE 



GOTO TAIL CODE 



D 




C- F3 ■* V 
RESTORE REGS ^ 

AND RETURN J 



ROUND ISA ADDR 
TO DWORDS SET 
IN ARGLIST 



04 



ADJUST GIVEN 
LENGTH TO ALLOW 
FOR ZCTL. STORE AS 
ARG FOR CALL 



SET STACK FLAG 
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IBMBItPC 



tNTKY C OR D * 



'XIN MACRO MAKES 

• LWS CURRKNT 

• SAVU/iREA 



REAL* LOAD REAL PART *C 

r ♦ TO 2 FLOAT *- 

I • REGS. ♦ 



♦♦♦♦♦B5*** ****•*♦ 
♦LOAD IMAGINARY » 

* PART INTO * 

>* REMAINING * , 

* REGISTERS * I 

********************* 

* • 

* Fl ♦ 

* * 
• *** 



->•. PRECISION ? 



•♦hl»*»»»»* 
♦SET HTXIT €♦ 
•PKOGR/>M MAr.K - 

FKOM LAST • 
►INTLKLANGUAGE* 
♦ VDA ♦ 



• SET RU=RESULT » 
•IN Rb. CLEAP BR* 
♦AS RtTURN CODE * 



♦♦♦♦^♦♦♦♦♦♦♦♦* 
♦KESTORt OTHERS ♦ 
♦REGISTERS USED • 
♦ t, RraURN ♦ 

*************** 



IE018 .♦. 

• d;^ ♦. 

• . ♦ ♦- 

» < = 1'5 .♦ ♦. 

• < ♦. PRECISION? .♦<- 



♦•♦••£ ^ •••♦♦•♦**♦ 

* * 

♦ LOAD FULLWQRD ♦ 



►♦♦•••»♦»*♦•♦♦♦♦♦ 



)***pj********* 

II-iSERT 

CHARACTER IN 

REGISTER 6 

i******* ******* 



*****l)lf ******** t 



******************** 
CMPL ♦ ♦ 

• Fl ♦ 



»«**»D5 ♦•♦♦♦*»**• 



***************** 

I **** 

l_>* * 

♦ Fl * 



*****£1|* ******* < 



***************** 
1 **** 

Fl ♦ 
t * 

**** 



l_>* 
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****A2********* 
» ENTRX FROM < 

• COMPILED CODE < 

* < 



lEMBJCSE 

•ENTRY FROM JWT * 
• « 



.•ZERO LENGTH*. 

DISPLAY 

•.VARIABLE?.* 



JD030 

*****C2********** 

* REMOVE * 

* SUPERFLOOS * 

* BLANKS AT END * 
» OF DISPLAY • 

* * 
***•*********••*• 



D2 
.♦DISPLAY, 



83 *. 




.♦ * . 


*** 


*DISPLAY. NO* 
REPLY? 


Y • 


* >. K2 



JD9S0 V 

•••**BS ***•••*•*• 
•JD600 • 

•-♦-»-♦-♦-»-♦-»_» 
•LINK TO CONSOLE^ 
•I/O SUBROUTINE * 
*i CHECK SUCCESS* 



replyJ 



. *ZERO LENGTH^. 

REPLY 

••VARIABLE?. • 



JD150 

••***F1 ***••***«* 
*DECHAIN DISPLAY* 

* CCW FROM * 

* 'WAITING FOR • 

* REPLIf' CCW • 



FREE NON-LIFO^^ 

CCB.CCHS AND •• 

DISPLAY ♦* 

STRING ** 

STORAGE ** 



****D5********* 
* * 

» RETURN TO JWT * 



* CHAIN DISPLAY • 
*CCH TO 'WAITING* 
♦FOR REPLY' CCW » 

* * 
****••••••******* 



G2 *. 
.* *. 
. * REPLY, NO *. N 



» RETURN TO ERR 
► ERROR CODE= 
• NULL STRING 



EVENi'7 



->•. EVENT ACTIVE?. • >• 



JD260 

• SET EVENT 
ACTIVE, I/O 



DISPLAY AND 
NORMAL STATUS 



JDllO 

t»tttn2* ********* 
•JD500 



•-•-*-•-*-*- 



**•* 

• < 

• K2 * 



****K2****^**** 

* RETURN TO ♦ 

* COMPILED CODE ♦ 



****H3******^^* 
RETURN TO ERR * 
ERROR CODE» • 
EVENT ACTIVE • 



• ••*Hll***«***** 



•♦GET NON-LIFO •• 
•• STORAGE FOR •• 
••CCB,CCWS AND •• 



ISPLAY 
STRING 



•****KM *•*•••••* 

* MOVE IN 
*CCB,CCHS, STRING 

-*i SET CCB ADDR 

• IN EVENT 
* 
**•***•*****••** 
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► CHECK SOCCESS * 

► OF * 

► OISPLKY/REPLy « 



• CONSOLE I/O ♦ 

• SUBROUTINE, * 

• DISPLAlf/REPLY ♦ 



JD510 * 

•****B2** ******** 
*EXCP * 

•-*-»-♦-»-*-♦-•-* 

* ISSUE EXCP * 

* MACRO, Rl -> * 

* CCB * 



JD530 V 

••*• •02**** ****** 
•WAIT * 

•-*-♦-*-*-♦-*-*-* 

♦ WAIT FOR * 

* CHANNEL END * 

• * 
***************** 



****C3********* 
• SET OFF ( * 
► RETURN TO < 
» CALLER < 

**•****••*****• 



JD61S 

*****E3********** 



UNIT CHECK? .* 



*****QX**** ****** 
» SET VARXING ♦ 
•STRING CURRENT * 

* LENGTH = THAT * 

* TYPED BY ♦ 

* OPERATOR * 
***************** 



**** HI ********* 
► RETURN TO • 
* CALLER • 



*. INTERVENTION .* > 

*. REQUIRED?.* 



••***H2 ********** 
*EXCP t HAIT * 
•-*-*-*-*.*.*-•-* 



**•**•*******••** 



* RING ALARM * 

• * 
***************** 
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• ENTRY FROM ♦ 

♦ COMPILED CODE * 

* * 



*****B 3* ********* 

♦ ♦ 

* ACCESS COMREG * 

♦ AND OBTAIN ♦ 
» SYSTEM DATE * 

* * 
***************** 



.♦DATE FORMAT*. DDMM • SET DD/MM/YY ♦ 

.MMDD OR DDMM?.* >* FORMAT * 

♦. .♦ *TRANSLATE TABLE* 

». .♦ ♦ * 

*. .* ••***••*•**••***• 



*****03********** 

• ♦ 

* SET MMXDO/YY • 

♦ FORMAT • 
*TRANSLATE TABLE* 

* * 
******••***•***•* 



•***F3********* 

* RETURN TO * 

* COMPILED CODE • 

* * 
**•*••**••***** 
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••**A3 ********* 

* ErtTRV FROM * 

* COMPILED CODE * 

* » 



*****B3*******«*4 



>****D 3* •••**•»*« 



• I xncK , » 
*SPECIFXING TECB* 



••***F3********** 
•WAIT * 

* WAIT UNTIL « 

* INTERVAL HAS * 

* ELAPSED * 



****G3********* 

* RETURN TO * 

• COMPILED CODE « 
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IBHBJDZA 

*t»tti2*** ****** 

* ENTRY FROM « 

♦ COMPILED CODE * 



»ZERO LENGTH*. 

DISPLAY 
'.VARIABLE?.* 



JD200 .*. 

B3 ». 
. * * . 
.♦DISPLAY, NO*. 
>*. REPLY? 



JD030 V 

***t*C2* ******** 

• REMOVE 

« SUPERFLOUS 

* BLANKS AT END 
« OF DISPLAY 

* 
**************** 



♦DISPLAY, NO*. 



replyJ 



JD150 

»****F1** *•«****• 
*DECHAIN DISPLAY* 

* CCH FROM * 

* 'WAITING FOR » 

♦ REPLY" ecu * 

• * 
*•**««•*«**«**•** 



•zero length*. 

reply 
•.variable?.* 



* CHAIN DISPLAY * 
•CCW TO 'WAITING* 
♦FOR REPLY' CCW * 



********** 



JD210 

****pj********* 

* RETURN TO ERR « 

* ERROR CODE= « 

* NULL STRING » 
*************** 



JDllO 

♦•♦**H2* 
*JD500 



JD700 

••••K2********* 

• RETURN TO ♦ 

• COMPILED CODE ♦ 

• • 
*•••*•***••*••• 
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JD500 

****A2* ******** 

* CONSOLE I/O * 

* SUBROUTINE, * 

* DISPLAY/REPLY * 
*************** 



JD510 

•««**B2********* 
*EXCP 



JD530 

*****C2****< 
*WAIT 

«_♦_»_»_»•♦. 



**************** 



UNIT CHECK? .* 



♦♦***G1********* 

* SET VARYING 
*STRING CURRENT 

* LENGTH = THAT 

* TYPED BY 

* OPERATOR 
**************** 



J062b 

****H1 ********* 

* RETURN TO * 

* CALLER • 



RING ALARM 



********** 
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* ENTRY TROM • 

• COMPILED CODE * 



*****B3*** •**•••« 



C3 ». 
.* TIMER *. 
» FEATURE 
GENERATED? 



-*-•-•-•-•-*.•• 



•EXTRACT HOUR OF* 
♦DAY FROM 1/300 » 
* SECOND UNITS * 



•EXTRACT MINUTE * 

* OF HOUR FROM • 

• REMAINDER * 



*****G 3* ********* 
•EXTRACT SECONDS* 



»****|J3** •***•*•« 



•RETURN TINE IN * 
* HHMMSSTTT * 
*CBARACTER FORM * 
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****A1 ********* 
•WMT WITH ARRAY* 
♦ EVENrS * 



*****B1********** 

• INITIftLISE ♦ 
•COUNr OF EVBWr * 

♦ VARIABLES TO » 

* ZERO ♦ 



JWOIO " 

*tt*0Ci* ********* 

* * 

* ADDRESS * 
•PARAMETER LIST * 

• ELEMENT * 

• • 
*••***•*****•(*** 



01 •• 
. » *. 
• ZERO 
DIMENSIONS 



*****q2 ********** 

* * 

• BUMP EVENT * 
->*VARIABLE COUNT *- 

♦ BY 1 * 

• * 
•***•**•****•**•• 



*COMP0TE NOMBER • 
*OF ELEMEHTS IN * 

* ARRAY * 

• * 
*••***•****••••** 



•****PX ********** 

* * 

* ADO NUMBER OF • 

* ELEMENTS TO ♦- 

* EVENT COUNT * 

* • 
*••**•••**••*••*• 



.* END OF 
— >*. PARAMETER 
*. LIST 



****•••**•***•*** 



• * 

* COPY 1ST WORD ♦ 
♦OF JWI PLIST TO* 

* JWT PLIST * 

• * 
**•***••••**•*•** 



JW055 V 

*****F3********* 
* 

* ADDRESS 

* PARAMETER LIST 

* ELEMENT 
• 
*••**•••**••**** 



***«*J2* ********* 
*1BMBAIHA • 
*-*-*-*-*-*-*-*-• 

• SET INDEXING *- 

• TABLE * 

• * 
***************** 



*****J3********** 

* * 
*ADDRESS OF EACH* 

>♦ ELEMENT TO *- 

* PLIST * 

* * 
**•**•**•*******• 



*****G<t********** 



***************** 



*ADDRESS OF EACH* 
->* ELEMENT TO *- 

* PLIST * 

* * 
***************** 



*****j 11********1 
* 
* 
->* FREE THE VDA 



1 NO 

D .*, 

F5 ♦. 

.* *. 

, *END OF JNI *. 

PLIST 



*************** 



-*-*-*-*- 



* PERFORM WAIT 



***************** 



****J5********* 

> RETURN TO • 

► CALLER < 



Chart BJWI. WAIT (array event variables) 



Licensed Material - Property of IBM 



Part 2 : Flowcharts 



257 



IBHBJWTA 

* 4 

* WMT * 

* i 
*************** 



* • 

* INITIALISE I, * 

* J. U, H AND * 

* fiAgs to zero * 

* • 



•*•*•****••**••** 



Bl *. 

, » ♦. 

EV ACTIVE 



Fl ♦. 
. * ♦. 

. * 4 

•.EHIP FLAG ON 



*****D2* ******** 

>* M = M ♦ 1 

* 
*********•*•*••* 



••**B3*** ****** 
J = J ♦ 1 

*************** 



• ****f'2*t ******* 

* 

->♦ U = U ♦ 1 

*••••*•****•••** 



I NO 

G2' ■*. 
• • ♦. 
• • •• 

->*. DISPLAY EV .* 



•***H2********* 
SET FLAG D 



3 .*LAST EV IN *. YES 

-*. PARAMETER .* 

♦. LIST .• 



••••*CU ********** 



•*•***•**•**••**« 



• NO 

I**** 
*0« ♦ 
->♦ K5 ♦ 



V 

.*. 

J5 ♦. 



I > .* -, 

•• •♦ 1 



* NO *•••• 
•••• #02 * 
•03 ♦ • Al* 
->♦ A« ♦ * ♦ 



Chart DJWT. WAIT (multiple events) (part 1 of 5) 



258 Licensed Material - Property of IBM 



• 02 ♦ 

• Al ♦ — , 

• * 1 



FLAG D SET 



Bl •. 
N = I 



CI •. 
FLAG A SET 



SET ECBLIST 

LBNSTR AND 

FLAG F ON 



***************** 



GET A(EV) FKOM • 
PLIST *< 



*********** 



• 

♦SET EVTA3 ENTRlf 
•AND CHAIN EVTAB' 
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♦. TARGET? .♦ 



*****SH»»* ******* 



**** 

♦01 ♦ 

->♦ Kl ♦ 



PA560 

*****^^* ********* 

♦ OBTAIN ERROR ♦ 

♦ CODE FOR AREA ♦ 

♦ ASSIGNMENT * 

♦ ERROR ♦ 



*****£^* ******** 

♦TERR 
♦-♦-•-•-•-♦-*-•- 

♦ RAISE AREA 

♦ CONDITION 



*♦♦♦ 

• 01 < 

->♦ Kl 
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****ftl ********* 
' GET NON-LIFO * 

► STORAGE * 

> 4 



****A2********* 

* LIFO STACK ♦ 
*OVERFLOW (VDA) *- 

* • 
******••*•**«** 



****A3********* 

► LIFO STACK « 

► OVERFLOW * 
* (PROLOGUE) * 

*******••****•* 



****A5********* 
» FREE NON-LIFO • 
► STORAGE * 

» * 

*************** 



PG015 

*****B1 ********** 

*IBMBPGRC ♦ 
*-•-*-*-*-*-*-*-* 
•FREE ANY EMPTY * 
» SEGHEMTS * 
* * 

***************** 



EMPTY 

SEGMENTS 

EXIST 



PGOUO .*. 

Btt *. 

. ♦ * . 
. * MORE THAN ♦ . NO 



->*. 



****C2********* 

> * 

> RETORM ♦<- 

> * 

***•**•***•**•« 



SPACE IN 

CURRENT 

. SEGMENT 



Dl *. 

.* LARGE *. 

.•ENOUGH AREA*. 

.IN FREE AREA . 

♦. CHAIN .* 



**•**£ 3******* *•* 



*****•***•*•**•** 



.* ROOM *. NO 
♦. BETWEEN NAB . ♦— 

*. ANO EOS .* 



*****B1********** 

* * 

* EOS = EOS - ♦ 

* LENGTH TO BE *- 

* ALLOCATED * 



***************** 



****G2********* 
♦SET RETURN CODE* 
->♦ AND RETURN TO • 

♦ PIR ♦ 
***•*****•*••** 



. * 



PG030 

*****CII****»***** 
♦FG260 ♦ 

*-*-•-*-*-*-»-*-* 



***************** 



►-*-*-*-•-*-*-*- 
► FREE STORAGE 
**************** 



****C5********* 

t 4 

► RETURN * 
**********••*•* 



.•IS CURRENT ♦. 

.SEGMENT LARGE. 

*. ENOUGH .* 



PG060 

• ****FI|********** 

*PG260 * 
*-*-*•*-•-*-*-*-* 
* FREE CURRENT »<- 

* SEGMENT * 



***************** 



PG210 

• ****Glt *•*****••* 

• STORE CURRENT * 
BOSi EOS IN * 



YES .♦ ROOM IN 

*. PREVIOUS 

*. SEGMENT 



->♦ 



STORAGE 

OBTAINED FOR • 
* NEU SEGMENT * 
***************** 



H3 *. 
. * *. 
* 
PGRA ENTRY 



***************** 



* UPDATE BOS, EOS* 
*T0 ADDRESS NEW *- 
*CURRENT SEGMENT* 
* * 

••**•****•**•**** 



F6220 « 

*****H5********* 



* SET RO - NEW 
>• NAB 



****J3********* 

• * 

► RETURN « 



*****J5********* 

* SET Rl = 
•ADDRESS OP BYTE 
* BEYOND CONTROL 

* WORDS OF 

* SEGMENT 
**************** 



****K5****^^*** 
» « 

> RETURN • 
k « 

********«••**•• 
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> FREE CURRENT « 
» SEGMENT ' 

> « 



* * 
♦COMPOTE LENGTH • 
♦AND UPDATE BOS, ♦- 

* EOS ♦ 

* • 
•*•♦♦♦••♦♦••**♦♦♦ 



» FREE NON-LIFO < 
► STORAGE < 



C2 ♦. 

.♦AREA IS^. 

.♦CONTIGUOUS ♦. 

^ HITH HIGHER . 

♦.FREE AREA.^ 

♦ . .♦ 

♦ . .♦ 

♦ NO 



• ••••(;3^^* *♦♦♦•* 

* 

->^COMBINE LENGTHS 



••*«*q3*****«***« 



♦*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



) .♦. 
E2 ♦. 
.♦AREA IS^. 
, ♦CONTIGUOUS 
. HITH LOWER 
♦.FREE AREA. 
♦ . .♦ 
♦ . . ♦ 
♦ YES 



•••••F2^ ♦♦♦♦♦♦♦♦♦ 

♦ • 
♦COMBINE LENGTHS^ 

♦ AND STORE IN ♦ 

♦ FREE AREA ♦ 



• 

♦ EOS « EOS ♦ 
>♦ LENGTH OF 

♦ STORAGE 

* 
♦♦♦♦♦*♦•♦*♦♦•*♦♦ 



♦♦♦♦ES^^^^^^^^^ 
» RETURN « 



♦STORE LENGTH OF^ 

♦ FREE AREA IN ♦- 

♦ FIRST WORD ♦ 



♦♦♦♦G2^^^^^^^^^ 

» 4 

* RETURN * 
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IBMBPIRA 

****A1********* 
♦ENTRY FROM DOS « 

* ONLY < 

* 4 



****h2 ********* 
* ABNORMAL GOTO < 
► OUT OF BLOCK < 
» 4 

*************** 



*****^l ********** 
♦LOAD IBMDPII ♦ 
»_♦_♦_♦_♦_»_♦_»_» 

♦ ♦ 
♦INITIALISE ISA » 

♦ * 
♦♦*♦♦**♦********* 



*****Q2* ********* 



SAVE TARGET 
PARAMETERS 



***************** 



. ♦ IS GOTO 
ENDING 
♦.PROGRAM? 



► GOTO CALL 

► IBMDPES « 
¥ I 

*************** 



PLIMAIN 

♦♦♦♦El+^^*^^^^^ 
♦DEFAULT ROUTINE^ 
♦IF NO MAIN PROC^ 
♦ * 

*************** 



*****F1 ********** 



GET LIBRARY 
SAVE AREA 



***************** 



*****Q1********** 
♦IBMDPEPA ♦ 
*-*-*-*-*-*_*_*-* 
♦ISSUE 'NO MAIN ♦ 
♦PROC. ' MESSAGE » 
♦ * 

***************** 



****H1********* 

♦ DO GOTO TO « 

♦ DUMMY DSA TO < 

♦ END ♦ 
*************** 



PI500 « 

*****C3********** 

♦IBM30CLD ♦ 
*_♦_*_*_*_*_*_*_* 
♦CLOSE ALL PL/I ♦ 

♦ FILES IN THE ♦ 

♦ PROGRAM * 
***************** 



OTHER 
ABNORMAL 
. GOTO? 



* GO BACK A DSA ♦ 

* * 

* * 
***************** 



*****£ 3 ********** 

* FIND COr^PILED ♦ 

♦ CODE DSA AND ♦ 
>♦ SAVE TARGET ♦ 

♦ PARAMETERS ♦ 

* * 
***************** 



****P3********* 

► RETURN TO * 
» MODULE TO < 

► PROCESS EXIT < 
*************** 



PIS 30 

****q3********* 

* RETURN PROM ♦ 

* EXIT MODULE, ♦ 

* PARMS RESET ♦ 
*************** 



*****[]3********* 



**************** 



PI550 



ANY CALLER? 



PI650 if 

****F(t********* 



♦ EOJ OR CANCEL ♦ 

* * 
*************** 



♦***DS ♦***♦♦♦♦♦ 

♦ RETURN TO TCA < 
->♦ GOTO CODE * 

* 4 
*************** 



PI600 

****E'i ********* 

* RETURN TO « 
>♦ IBMDPJR 4 

♦ 4 
*************** 
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PL1CALL3 

****A1 ********* 

* FRO^^ CALLER < 

* PROVIDING ISA < 

* LENGTH 6 ADDR » 
*************** 



iqrnp.iRB 

****j\ 2 ********* 

♦CALLEP PROVIDES* 

- — >* CC ADDR S ISA ♦- 

♦ LENGTH £ ADDR ♦ 

*************** 



IBMBPJRA 

♦ ♦*»AI4 »♦**♦*♦*♦ 
♦CALLER PROVIDES* 

*CC ADDR, ASSUyE*<- 

* ISA=PARTITION * 
*************** 



PLICALLA 

****f^<j********* 

* FROM CALLER, « 
* ASSUME ISA = * 

* PARTITION » 
*************** 



***»*33 ♦*+»***♦♦♦ 

* * 

* WORK OUT TCA » 

* ADDRi^SS 6 ISA * 

* LENGTH • 

* * 
***************** 



*****Q J ********** 



♦WORK OUT SPACE ♦ 
* REQUIRED * 



t******** ****** 



♦ISSUE MESSAGE: *<- 

* 'NO STORAGE * 

* AVAILABLE* » 
***************** 



PJIUO 

*****E3********** 
♦LOAD IBKDFJI ♦ 



♦INITIALISE ISA * 



***************** 



* FROM IBMDPIR 
* 
*************** 



*****q3********** 



CALCULATE 
RETURN CODE 



***************** 



*****^^** ******** 

* * 
♦RESTORE CALLERS* 

* STXIT PC * 

* OPTIONS * 

* * 
***************** 



****j 3********* 
• RETURN TO < 
> CALLER * 
» « 

*************** 
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* ENTRY FROM ♦ 

* COMPILED CODE ♦ 

* * 



•**•*•**•*****•** 



♦LOAD * 

» SERVICE CALL ♦ 
♦PLIOVLy (MODULE)* 
« REQUEST * 



V 

****D 3* ******** 

* RETURN TO * 

* COMPILED CODE * 

* * 
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IBMBRIOA 

♦♦•♦Al*»* •••»♦* 

* RECORD I/O * 

* STATEMENT * 



IBMBRIOB 

****A3********* 

* RECORD I/O * 

* ERROR MODULE * 

* BOOTSTRAP * 
*************** 



IBMBRIOD 

****AI4********* 

• ERROR ENTRY * 
» PROM IN/LINE • 

* CODE * 



**»»*B1** «*•**••• 



***************** 



•****B3 ********** 

* * 
*GET 7TH CHAR OP* 

* MODULE NAME * 

* FROM FCB « 

* * 
***************** 



****C'2*»* ****** 

* BRANCH TO « 
» XMITTER « 

* * 
*************** 



****D2 ********* 

♦ BRANCH TO * 
->• IBHBOCLB POR * 

* IMPLICIT OPEN * 

*«*•••*•****••* 



IBMBRIOC 

****Sl********* 

* CALL IBMDERRB * 

♦ WITH INVALID ♦ 
» STMT • 



»•** (03** **•****< 

♦ GET ERROR ' 

* MODULE LENGTH < 
► FROM TABLE « 

***************** 



****C<t********* 
*BRANCH TC ERROR* 

• MODULE « 

* * 
*************** 



*****UH*** ******* 

* LOAD ERROR * 
MODULE INTO * 

LIBRARY * 
*TRANSIENT AREA * 

* * 
***************** 



->* 



****E3** ******** 



I**************) 



****F3********* 



*************** 



••**Q3********** 
REPLACE * 

A(BOOTSTRAP) IN* 

FCB BY A (LOADED* 

MODULE) .* 

* 

**************** 



• •**II 3** ******* 
*BRANCH TO ERROR* 

* MODULE * 

♦ * 
•**•***••***••* 
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A/B/P-CHAR 
INPUT 



• STORE REGS. « 
•CONVERSION FLA3< 



• SCAN LSACING 
-->• AND TRAILING 

• BLANKS 



►•»»C2»*»»»«»» 
SET UP RtTRY 



t*»*»CS* ********* 

• MAKE LOCATOR « 
>FCR SIGNIFICANT* 

• INPUT < 



SA130 

****01********* 

* • 

* RAIS£ ERROR • 



IBM6SMR 

****D2********* 

* 4 

• RETRIf POINT • 



BIT TARGET 



GET VDA FOR 

TEMP. BIT 

STRING 



• CREATE SOURCE • 

• LOCATOR AND « 
» P. LIST « 



SA12S V 

*****F5*****< 
*ieKBCCBA 



>•-•-*-*- 



•lEMBCCAA 

» CONVERT 

• CHARACTER TO 

• ARITHKETIC 



SA020 9 

*****ri 3* **>•••••* 

• tb;'«ecc-a ♦ 
♦select and call* 

• STRING » 

• CONVEKiilOW • 



-•-*-*-*- 



BIT TO TARGET 
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♦A-FORMAT OUTPUT* 

* * 

*************** 



*****Q2********** 
♦IBMBCBCA * 
*_*_*_*_*_*_*_*_* 
*CONVERT BIT TO *<- 

* CHARACTER * 

* * 
**•***•***•*•**•* 



♦****C3********** 

* SET UP TARGET * 

* LOCATOR DED « * 

* ARGLIST FOR * 

* CONV. MODULES * 

* * 
***************** 



D3 *. 

. * *. 

» ♦ . 

BIT SOURCE? . * 



E3 *. 

. * *- 

. • • 

*.CHAR SOURCE? 

*. .* 

*. . ♦ 

*. .♦ 

*YES 



.* EXTENDED 
->*. PRECISION? 



♦IBMBCXCA * 

*-*-*-•-*-•-*-*-* 

>* CONVERT TO * 

• CHARACTER ♦ 

* * 
***************** 



*****p3********** 
*IBMBCCCA * 

*_*_♦_*_*_*_*_*_* 
* CONVERT CHAR TO* 

• CHAR • 

* * 
***•••••******•** 



*****p() ********** 

*IBMBCACA * 

*-*.*-*-*-*-*-*_* 

* CONVERT ARITH * 

* TO CHARACTER ♦ 

* * 
***************** 



****Q3********* 

► RETURN TO < 

► CALLER * 

¥ 4 

*************** 
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IBMBSBOA 

♦»**A3********* 

* 3- £ P-CHAR * 

* FORMAT OUTPUT < 

* * 
*************** 



*****B3 ********** 



***************** 



.♦ARITHMETIC *. YES 
■. SOURCE ? .* 



B- FORMAT 
TARGET 7 



SBllO 

**** *C5 ****♦♦♦** * 

♦CONVERT ♦ 

*-*-*_*-*-*_*-*-* 

>* ARITHMETIC TO ♦ 

♦ BIT ♦ 

* * 
***************** 



SB QUO 
CHAR 



««***EX ********** 
*IBMBERRB * 

*-*-*-*-*-*-*-*.* 

* RAISE * 

* STRINGSIZE * 

* * 
••••*••**•**•**** 



SB060 V 

•****pi ********** 

* * 
♦SCAN SOURCE FOR* 
*0*S AND I'S AND* 

* MOVE * 

* * 
***************** 



♦. SOURCE ? 

♦ . 

*. -* 



SB090 



***************** 



*****jl ********** 
•IBMBSCVA ♦ 
*-*-*-*-*-•-*-*-* 

* RAISE *- 

* CONVERSION * 

* * 
******•••*****•** 



••***£2********** 

♦IBMBCBCA ♦ 
•-*-*-*-*-*-*-*-* 
*CONVERT BIT TO * 

* CHAR * 

* * 
***************** 



* H3 * 

* * 

SBOIO 

*****P2 **♦♦♦♦♦♦** 
*IBMBCCQA * 
•-*-*-*-*-*-*-•-* 
*CONVERT CHAR T0*<- 
» PICTURED CHAR * 
* * 

**•**•**•*•****** 



•*Q3******* 

* SET UP * 

* PARAMETERS * 
*FOR CONVERSION 

* RETRY * 

* * 
*********** 



. *. 



-*. B FORMAT ? 



-*.BIT SOURCE ? .* 
*. .* 



*****G 3** ******** 

♦IBMBCBQA * 
*-*-*-*-*-*-*-*-* 
* CONVERT BIT TO * 

♦ PICTURED CHAR ♦ 

* * 
***************** 



SB030 V 

****H3********* 
* RETURN TO ♦ 
>* CALLER *<- 



*****Q5********** 

♦IBMBCBCA * 

*_*_*_*_*_*_♦_*_* 
*CONVERT BIT TO ♦ 

* CHAR ♦ 

* * 
***************** 

I *•** 



if 
. ♦. 

pu *. 



*****GIt ********** 
*lBMBCXOA * 

*-*_*-*-*-*-*_*-* 

♦ CONVERT TO ♦ 

♦ CHARACTER ♦ 

♦ * 
***************** 



*****(;5********** 

*1BMBCACA * 

*_*_*_*_*_*_♦_*_* 

♦ CONVERT TO ♦ 

♦ CHARACTER ♦ 

♦ * 
***************** 



*************** 



» i 

► H3 « 
^ i 

**** 
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IBMBSCIA 

•••*A2********* 
* • 

•C- FORMAT INPUT • 



SC060 V 

••***01 ********** 
*IBIIBCCSA * 



•*•*•**••*•••••*• 



-*. STRING TARGET. 
*. .* 

*. •* 



••***D2********** 

* * 

* SELECT REAL * 

* SUBPORMAT * 

* DIRECTOR * 

* * 



SCO 20 V 

*****£2********** 

*DIRSCTOR * 

•CONVERT PART Or*<- 

* FIELD * 

• * 
•••*•••****••**•* 



F2 *. 

.* *. 

. * * 

*.0N REAL PART 

♦ . .« 

*. .♦ 

♦ . .♦ 



* NO 



SCO 30 



****G2* ******** 
» RETURN TO < 
» CALLER • 



*IBMBCGZA * 



SELECT IMAG 
SUBFORMAT 
DI FACTOR 
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IBHBSCOA 

♦C-FORMAT OUTPUT* 



*. STRING SOURCE. *- 



*IBMBCGZA * 

* LOCATE IMAG •- 

* SOORCB • 



•••**C2********** 

• • 

• SELECT REAL • 

• SUB FORMAT • 

• DIRECTOR • 

• * 



SCO 10 V 

••***D2*** ******* 
*0IRECTOR • 

>* CONVERT TO *<- 

* SUBFORHAT * 

* * 



•IBMBCCSA * 
•-*-•-*-*-*-*-• -4 

* STRING TO * 

* C-FORHAT « 

* « 



E2 *. 

.* *. 

.* * 

•.ON REAL PART 

*. .* 

*. .* 

*. .* 

• YES 



SC030 H 

»****F2********* 



SELICT IHAG 
SUBFORMAT 
DIRECTOR 



SCO 20 

•***EV********* 

• RETURN TO « 

>* CALLER » 



*****G 3* ********* 
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.•ANYTHING TO*. NO • < 
COPY? .♦ >♦ JH * 



•****C 2* ********* 

• • 
•CRBATE h DUMMY * 
*SIOCB FOR COPY * 

• FILE • 

• * 
*•**•***•******•* 



*-*-*-•-•-•-•-*-• 



•FIND LZNGTB OF 

• COPY FIELD 

• (FCM - FCPM) 



.•OH COL 1 OF*. YES 

— >♦. COPY FILE .• 

•. RECORD? .• 



•-•-•-•-•-•-•-*-* 



ROOM IN 
COPY FILE 
. RECORD? . 



♦ MOVE COPY * 
*INFORM»TION TO • 

->*BUFrER OF COPY • 

• FILE • 



* UPfiATB BUFFER • 

* POINTERS FOR * 

* COPY FILE * 



SCO 50 

*TRANSMITTER 



*TRANSMITTER 



-•-•-•-*-*-•-•-• 
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••••Al ***••**•* 
» EMTRY FDR * 
► DMX-OIRECTED * 
» INPUT LIST * 



****A2********* 
» ENTRY FOR « 
» DATA-DIRECTED * 
» INPUT GENERAL « 



• « 

->* HOUSEKEEPING * 

• « 

• i 



SD015 9 

**C2******* 

♦ SET XMIT • 
*FIAG IN SIOCB* 

* IF ERROR ON *<- 
• INPUT ♦ 

• DETECTED * 



**** 
♦01 • 

♦ C* ♦--, 

♦ * 1 

♦ *** V 

SDOIO .♦. 

C« •• 

.♦END OF •• 

.* FILE OR 

STRING 

♦.DETECTED . 

♦. ? .* 



NO 



D2 



♦ . .♦ 

♦ . .♦ 
♦ NO 



♦♦♦♦♦03^^****^*** 
♦SD350 ♦ 

>♦ ♦ 

♦ GET A RECORD ♦ 

* * 



♦4** 

» 4 

» Ctt < 
» 4 

♦ **• 



♦01 ♦ 

♦ C5 ♦— , 

♦ * 1 
SC680 V 

♦IBHBERRB ♦ 

>♦ RAISE ENDFILE ♦ 

♦ (ERROR FOR ♦ 

♦ STRING) ♦ 
*♦•*♦♦*♦*******♦♦ 



♦RETURN TO NEXT * 

♦ STATEMENT * 

* 4 
*♦♦♦♦♦♦*«****•* 



SD030 

**«**E2^^^ ♦♦♦♦♦♦♦ 



•****««***«*••#** 



G2 ♦. 

.♦ ♦. 

.♦ ♦. S 

♦. SEMICOLON ? .♦- 

♦ . .♦ 

♦ • .♦ 

♦ . .♦ 

• NO 



♦♦H2^^^^^^^ 



♦**•♦♦***** 



• * 

♦ ADDRESS FIELD ♦ 
♦FOR COLLECTING ♦ 

♦ NAME ♦ 

* * 
♦♦♦♦♦♦♦♦♦**•*•*** 



•••**K2^^^^^^^^^^ 
♦SET FCB BUFFER ♦ 

♦ PTHS TO START ♦ 
♦OF ASSUMED MAME^ 

♦ FIELD ♦ 

♦ • 
♦♦♦♦♦♦♦♦♦*•****** 



SD260 

♦♦G3^^^^^^^ 

♦ END OF ♦ 

♦ INPUT - SET ♦ 
>♦ TERMINATOR * 

♦ FOUND FLAG ♦ 

• * 
♦♦♦♦♦♦**•♦♦ 



♦ STEP BUFFER ♦ 
->^PTRS FAST COMMAS 

♦ OR SEMICOLON ♦ 

♦ * 
♦♦♦♦♦♦♦♦♦•♦•«♦♦♦♦ 



**** 

♦ 01 ♦ 

♦ m ♦-> 



**** 

SD280 

♦IBMBERRB ♦ 
♦-♦-♦-♦-*-*-*-#-* 
♦RAISE TRANSMIT ♦ 

♦ IF XMIT FLAG ♦ 

* SET IN SIOCB ♦ 
♦♦♦♦♦♦♦♦♦•**♦♦**♦ 



SD290 



J« 



.♦. 



» ♦ NO .♦ WAS ♦. 

* CH ♦< ♦. TERMINATOR .♦ 

► ♦ ♦. FOUND ? .♦ 
♦♦♦♦ ♦. .* 

♦. .♦ 
♦ YES 



• ♦i*«KI|^^^^^^^^^ 

* RETURN TO * 

* CALLER « 
» 4 

♦♦♦♦♦♦♦*#*•*••* 



♦ ♦♦♦• 

♦02 ♦ 

♦ A2^ 

• • 
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**** 






•02 • 

• A2 •- 

* * 
•*•• 

SDOVO 

A2 
, • 


"I 

♦ , 


.* EQUATE OR < 
~>*.LEFT BRACKET 



.* HAS NAME •. MO 

->*. FIELD OMITTED.* 

♦ . 7 .• 



» SEMICOLON *. 
OR COMMA ? 



C2 •• 
.* * 

BLANK 7 

*♦. .♦ 

• NO 



D2 *. 
.* * 

PERIOD 7 



*. .* 

♦ MO 



.♦. 

E2 *. 

.* ARE *. 

.* BLANK AND *. 

•.PERIOD FLAGS . 

•.THE SAME .* 

• • 7 .• 

• . .* 

XES 



••F2******* 



*••* 
► . YES • • 
.♦ >♦ J3 • 



SOOSO 



62 



.• 
.* MORE THAN •. YES 

►. 256 CHARS 7 •• 

*. .* 

♦ . .♦ 
*. .* 
* MO 



•••••H2********** 



*•••• 

♦ 03 • 

♦ A2* 



•••••B<l*******^** 
•SBllSO • 

•-•-•-•-•-♦-♦-♦-• 

->*RAISE NAME FOR • -, 

•FILE. ERROR FOR* I 
• STRING • i 
**•*•***••••••••• V 

A ***** 

• 01 * 

* H«* 
• * 



SD070 



DH 



.* IS PERIOD *. 

>*. FLAG SET 7 .* 

*. .* 

*. .* 
♦ . .♦ 
• NO 



•♦ED******* 

• • 

• • 

•SET BOTH FLAGS * 



•••••j2^^^******* 
*SD300 * 



* GET NEXT CHAR * 



*••• 

• * 

• J3 * 

• • 
•••* 

)60 V 

**J3^^***** 

• • 

• • 

••SET BLANK FLAG • 
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• 03 • 

• A2 • — 



•SEARCH CHAIN OF* 
•SYHTABS FOR AU*- 
*KNOHN VARIABLES* 



->*.MAME POUND ? . 
*. •* 



* * 
•ADDRESS DATA OR* 

* ITS LOCATOR * 

* FROM SYMTAB * 



•••••D2*****^^*** 
•SD700 * 

• SCAN t CHECK *<- 

• SUBSCRIPTS, t * 
•ADDRESS ELEMENT* 
•••••••••••*••••« 



* 
*•*• I 
•03 • 

• E3 •->( 

• •** V 



.• IS •.NO 

->•. NON-BLANK AN .• 

•.EQOATE 7 .• 



•SC450 * 

•-*-*-*-*-•-*-*-* 
-> •RAISE NAME FOR • 
•FILE. ERROR FOR^ 
* STRING • 



I •••• 

♦ 01 * 
l->* HO * 

.* * 
*•*• 



• * 

• • 
•FREE ANY VDA'S • 



*••*•*••*•*•••••• 



*****Q3«****««*** 

• • 
•SET FCB BOFFER • 

• PTRS TO START • 
•OP VALUE FIELD • 



• • 

• SET AODRS. OF • 
•TARGET « TARGET^ 

• DED IN SIOCB • 



* SCAN DATA AND • 
*ASSI6N VALUE TO* 
*TAR6ET VARIABLE* 
•••*••••*••*••*** 



V 
• •. 



♦ . 



.IS CHECK Oil ?.•- 
•. •• 

•• .• 

• . .* 
• NO 



• SET FIAG TO • 
->*SHOH ENABLEMENT^- 

• UNCERTAIN * 



SD2S0 

•IBMBERRB * 
•-•-•-•-•-♦-•-•-« 

>*RAISE CHECK OH • 

• ELEMENT • 



• •••• 
•01 • 

• C<l^ 

• • 



• •••* 

• 01 • 

• c<«* 
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* SUBROUTINE TO « 

• GET NEXT CHAR * 



••***B2*** ******* 

* STEP SOURCE • 

* POINTER ( * 

* REDUCE BYTE * 

* COUNT Blf ONE • 

* * 
*••••*•****•***** 



ANY BYTES 

LEFT IN 

.RECORD 7 . 



****C 3* ******** 

* RETURN WITH * 
->* NEXT CHAR < 

* i 

*************** 



D3 



*0l| * 

* DU *—• , 

* ♦ I 

**** I 

570 I 



GET STRING*. YES 


.* SCANNING * 


DATA' 7 .* 


>*. LEADING 


.* 


*. BLANKS 7 .* 


*. .* 


*. .* 


*. .♦ 


*. . * 


* NO 


♦ YES 




**** 
*01 
l~>* C5 







****D4« 

* RAISE ERROR 4 
->* ('NAME' FOR « 

* STRING) * 
*************** 



• STACKING 
REQUIRED 7 


*. 


NO 
* , 




*. .* 
*. . * 

• YES 




> 
***** 
*05 * 
* B2* 

* * 
* 




. *. 

P2 ♦. 

. * *. 

*ANY RECORDS* 

ALREADY 
*. STACKED ?.♦ 


NO 


SD310 

*****P3********** 

•COMPUTE LENGTH * 
♦ OF 1ST VDA, * 




» NEXT RECORD ♦ 



***************** 



*****G2********** 

* • 

* COMPUTE NEW * 
♦TOTAL OF SOURCE* 

* CHARS • 



*CLEAR VDA COUNT* 



SD320 V 

**«**]] 3* ******** 



->* GET A VDA 

* 
* 
**************** 



*STeP VDA COUNT 
>* BY ONE 



•ADDRESS VDA AND* 

* INCREMENT * 

* LEMGTR USED * 



*****JI| ********** 

• SET FORWARD • 

♦ CHAIN IN • 
*PREVIOUS VDA OR* 

* SAVE AOOR. IF * 

♦ 1ST VDA ♦ 



I**** 
*05 • 
->• A2 



SD330 < 



* STORE ADDRESS 

* OF LATEST VDA 
*AND SET LENGTH 

* USED 



***** 
*05 * 
• A2* 

• * 
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♦05 ♦ 

• ♦ 1 

• *** I 

SD3ltO V 

•••**A2*********« 

* * 

♦ MOVE FROM * 
♦CURRENT RECORD * 

♦ INTO VDA ♦ 

• * 

*05 ♦ 

• B2 ♦-> 

* • 

SD350 ' > 

•••**B2*** ******* 
♦TRANSMITTER ♦ 
*-*-•-♦-♦-♦-•-*-♦ 

* GET A NEH * 

♦ RECORD ♦ 

• * 
***************** 



**C2^^^^^^^ 

♦ SET XMIT ♦ 
♦FLAG IN SIOCB^ 

> IF ERROR ON 4 
♦ INPUT ♦ 

♦ DETECTED ♦ 
*****•**•*• 



02 



♦ . 



.•END OP FILE*. 

. OETSCTEO 7 . 

*. .♦ 

♦. .♦ 

♦• .* 

♦ XES 



♦♦♦*D3*^^^^^^^^ 

* RETURN HITB < 

* NEXT CHAR « 

* 4 
*•**•***•*•*•** 



.♦. 




E2 ♦. 




.♦ ♦. 




SCANNING ♦. 


YES 


LEADING 


• 1 


.BLANKS ? .♦ 




♦. .♦ 




♦ . .♦ 


' 1 


♦ NO 


***** 




♦01 ♦ 




♦ HK* 




* * 




* 


.♦. 




P2 ♦. 




.♦ ♦. 




SCANNING ♦. 


NO 


DELIMITING . 


• 


.BLANKS 7 .♦ 




♦. .♦ 




♦ . .♦ 


' 


♦ YES 


***** 


• •*• 


*07 * 


♦07 ♦ ♦"A2^ 


l->^ JH 


* * * 
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• SUBROUTINE TO * 

• RAISE NAME • 



• . 



.• 



♦ NO 



I SD460 .*. 

*****C1********** C2 *. 

•S0300 • •• ♦ 

•.•.•.*-•-•-•-*.* YES .* 

>• •< ♦. BLANK ? 

* GET NEXT CHAR * *. 

• ♦ *. .♦ 
•••••*••••*•**••• *. .* 

* NO 



**G1******* 



SD500 

**F1******* 

• UNSET ♦ 

* SCANNING * 

< — *SUBSCRIPr3 PLAG*<- 



***•**••*•* 



***** 
•01 • 
♦ D«* 

* • 



D2 •• 
.* * 

EQUATE ? 



. SEMICOLON ? .♦ , 

♦ . .* J 

*• •• i 
• • .* V 



*•*•* 

• 07 • 

♦ A2» 

* • 



SD520 

•****D4* ********* 



****•**•••***••** 



.♦ ♦.NO 
► . QUOTE ? .♦ 



L. 

» 4 

► E5 * 

* 4 

• ••* 



SDSKO 9 

• ****fll* ***••••*• 



* SCAN FOR NEXT • 
>• QUOTE ♦ 



***••****•***•*** 



.*. 

G« *. 

.♦ •• 

. • IS NEXT *. 

. CHAR ALSO A . 

♦. QUOTE 7 •• 



• •*•* 
•07 • 

• A2^ 



•***«f 5* •«••••••* 

•S0300 • 

*-•-•-•-*■••-•-•-• 

• • 

• GET NEXT CHAR * 

• • 
*•**•*••*•*•••*•• 



SCS80 



.* ••NO 
.BLANK ? .* t 

*••• •••* 1 

• . .* V 

* yES •*** 
I •••• • « 

•07 •• E5 • 

l->^ A2 • • 

* • •*** 

• •*• 



B2 *. 

• 4 

COMMA ? 



• NO 
.J<_.. 



SD510 .♦. 

H3 ♦. 



.SUBSCRIPTS ? •• •, 

•. .• I 

♦ . .♦ V 



*•*•* 
♦07 • 
• A2^ 

• • 
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♦ 07 ♦ 

• ••* I 
590 » 



SD590 

* COMPUTE TOTAL • 

* OP CHARS IN • 

* ITEM ( SET * 

* LENGTH IN • 

* DATAFIBLO SLD * 



SD600 



ANY CHARS 

ALREADY 
.STACKED 7. 



.*ROOM IN 1ST*. NO 

•.VDA POR HHOLE.* 

♦. ITEM 7 .♦ 



••***D2 ********** 



••***C 3* ••****••* 



ANY CHARS 

ALREADY 

.STACKED 7. 



SD610 « 



*•••**••*****•*** 



. • ANY * . 
.♦BYTES LEFT *. NO 
♦ . IN CURRENT . ♦ — > 
*. RECORD ? .* 



•♦•••Q3********«* 

♦ MOV* IN • 
•REMAINING BYTES* 

• - UP TO. BUT ♦ 

♦ NOT INC. ♦ 

* DELIMITER * 
♦*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



.* HAS ♦. YES 

->♦. DELIMITER EOF.* 

♦ . 7 .* 



**Dtt***^^** 
• SET FLAG * 
•FOR SCANNING 
• DELIMITING 
* BLANKS 



♦ ♦♦♦£()♦♦♦♦♦♦♦♦♦ 



♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



NO .♦ ♦. 

— -». COMMA 7 .< 
♦. . » 



*STBP PAST COMMA* 



SD6S0 « 

♦ ♦ 
♦SET FCB BUFFER * 

♦ PTRS FOR NEXT ♦ 

♦ ITEM • 



«♦♦* 
♦ 07 ♦ 




♦ J« ♦-> 

♦ ♦ 

♦ ♦♦♦ 
SD655 

♦IBMBERRI 


♦♦♦♦•*•* 
3 ♦ 


♦ 

♦ RAISE 

♦ 

♦♦♦♦♦♦♦♦< 


♦ 
NAME ♦ 

♦ 
>♦♦♦♦♦♦♦♦ 



♦♦♦*K>I******^^^* 
♦ 
♦ 

FREE ANY VDA'S ♦ 



♦ ♦♦♦♦ 
♦01 ♦ 

♦ H*^ 

♦ ♦ 
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♦ SUBWOUTINE TO * 
•SCAN SUBSCRIPTS* 

* * 
*************** 



SPRING 



*********** 



*****Q2* ********* 


* COMPUTE VO OF ♦ 


♦ ARRAY IN * 


• BITS/BYTES AS • 


* APPROP. ♦ 


,**************** 


**** 




♦ 08 » 




• E2 •-> 




* * 




»»♦• 




SL720 9 


•»E2**»**** 




♦UNSET LEADING* 


* ZERO, MliJUS ( » 
» BLANK FLAGS ♦ 


» • 


• *»•* 





tt***P2********* 



*•**•*••*******• 



D3 ♦. 
• * 

MINUS ? 



♦*E3*»»**** 

* • 

* * 
♦SET MINUS FLAG ♦ 

* * 

♦ ♦ 
*********** 



SD780 

v****F'i********** 



**************** 



LEADING ♦. NC 


ZERO ? . ♦ 


. ♦ 


, * 


♦. . ♦ 1 


* YES ♦♦♦♦♦ 




♦ 09 ♦ 




♦ A3^ 



**GU ♦♦♦*♦♦« 



♦♦♦♦♦♦♦♦♦♦* 



GrT NEXT CHAR 
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.• ANY •. 
. « NON-ZERO *. 
. CIGITS IN . 
♦.SUBSCRIPT.* 



*****B1*********» 
*SO300 * 

* ♦< 

* GET NEXr CHAR * 

* * 
***************** 



* * 

• * 

.•SET BLANK FLAG *<- 



• ****C;it********** 

»SC«50 ♦ 

, YES ».*.*. *.*.*-•.*.* 

, » >*RAISt NAME FOB *<- 

*FILE. ERROR FOR* 
*. STRING « 
***************** 



**•* 

*01 * 

->• HK ♦ 



* * 

* INCREMENT • 
•SUBSCRIPT CHAR * 

* COUNT * 

* * 
•*******•••***•** 



.*MORE THAN 5*. YES 

► . NON-ZERO .* 

*. DIGITS ? .* 



. * SUBSCRIPT « 
.OUT OF RANGE 
*. 7 .* 



*****DS** ******•• 
* ADO S(I>*H(I> * 
« TO SUM FOR ♦ 
*BLEt4ENT ADDRESS* 
» (INIT VO) * 



<—*. COMMA FOUND ?. *<- 



• YES 

I**** 
• 08 ♦ 
->• E2 • 



•****G3********** 

* REMOVE ZONE * 

* THEN ADD INTO • 
-• SUBSCRIPT SO * 

* FAR * 



**G5******* 

* UNSET • 

* SCANNING • 

•SUBSCRIPTS FLAG* 



. * ARRAY 01 •.NO 
STRINGS 7 .•-- 
*. .* 



•••*J5* *•*•*•*•• 



• ••*• 
♦03 ♦ 

• E3* 
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IBMBSDJA 

****A1********* 

• ENTRY FOR » 

• DATA-DIRECTED * 

• INPUT LIST * 
*************** 



IBMBSDJB 

****A'2********* 

» ENTRY FOR » 

* DATA-DIRECTED * 

» liJPUT GENERAL * 

*****•«******•* 



*****B^ ********** 

* * 

* * 
>♦ HOUSEKEEPING » 

* » 

* * 
♦******«*«•***»** 



SD015 V 

**C2******* 

* SET XMIT ♦ 
*FLAG IN SIOCB* 

* IF ERROR ON * 
• INPU1 * 

♦ DETECTED * 
*********** 



**•* 




***• 


♦ 01 » 




• 01 ♦ 


* ca *— , 

♦ * 1 

**** V 




♦ C5 * — I 




* * 1 




**** 


10 .*. 




SD680 V 


CD ♦. 




*****C5********** 


.•END OF *. 




•IBKBEHRE ♦ 


.♦ FILE OR * 


YES 


*-*-*.*-*-*-*-*_* 


». STRING 
*. DETECTED .• 








* (ERROR FOR ♦ 


♦. ? .• 




♦ STRING) • 






•*•**•*••******** 



* GET A RECORD 

* 

**************** 



****D5********* 
•RETURN TO NEXT * 

• STATEMENT • 

♦ 4 

*************** 



***************** 



SEMICOLON 7 



♦•Hi******* 



*********** 



***«*J2* ********* 

* * 

• ADDRESS FIELD * 
•FOR COLLECTING • 

♦ NAME * 

* * 
•****•******••*** 



*****K2^** ******* 
*SET FCE BUFFER * 

• PTRS TO START ♦ 
♦OF ASSUMED NAME» 

♦ FIELD ♦ 

* * 
***************** 



***** 

• 02 » 

• A2» 

* * 



SD260 

**G3******* 
• END OF * 

* INPUT - SET * 
>• TERMINATOR * 

• FOUND FLAG • 



*********** 



♦ STEP BUFFER * 
->^PTRS PAST COMMA* 

• OR SEMICOLON • 

* * 
*♦*»♦*♦*♦**♦•*♦** 



**** 
SD280 

*****H>t********** 
*IEMBERRE * 
*-*-*-*-*-*-*-*-* 
•RAISE TRANSMIT ♦ 

• IF XMIT FLAG * 

* SET IN SIOCB • 
***************** 



.* NJ 

. TERMIl 

♦. FOU 

*. 
*. 


*S •. NO 

^ATOR .• , 

.D 7^.^ I 

.* **** 
>YES » * 

* Ct ♦ 

* * 
**** 


• «**Klt* 

RETOI 

CALl 


»***•*** 
?N TO ♦ 
.ER • 



*************** 
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***** 
►02 * 
► A2* 



.♦ ARE ♦. 
. • BLANK AND » . NO 

♦.PERIOD FLAGS .♦ , 

♦.THE SAME .♦ I 



t»**H2********* 



GET NEXT CHAR 



♦ ♦ 

♦ ♦ 
-♦SET BLANK FLAG 

♦ ♦ 

♦ ♦ 
♦♦♦*•♦♦•♦♦♦ 



♦ ♦♦♦♦ 

♦ 03 ♦ 

♦ A2 + 

* ♦ 



*****Qii********** 
♦SDUSO • 

♦_♦_♦_♦_♦_*-*_♦_♦ 

->^RAISE NAME FOP * 

♦FILE, ERROR FOR^ 
♦ STRING ♦ 
******************** 



♦ ♦£!(♦♦♦*♦♦♦ 

♦ * 

♦SET BOTH FLAGS 
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I**;^3********** 



•SEARCH CHAIN OF» 
•SYMTABS FOR ALL«- 
♦KNOWN VARIABLES* 



.NAME FOUND ? 



• scan & check ♦ 

• subscripts;, & • 
'address element* 



ADDRESS DATA OR* 
ITS LOCATOR * 
FROM SYKTAB * 



SD220 
YES . < 



»SD14 50 

*_*_*_♦_♦_*_*_*_ 
->*RAISE NAME FOR 
•FILE, ERROR FOR 
* STRING 
**************** 

1**** 
->*01 ♦ 
♦ HI * 



ttttFi********* 
FREE ANY VDA'S 



•SET FCB BUFFER 
• PTRS TO START 
•OF VALUE FIELD 



• SET ADDRS. OP ♦ 

•TARGET £ TABGET* 

• DED IN SIOCB • 

• * 
*•••«•••**•••***• 



* SCAN DATA AND ♦ 
•ASSIGN VALUE TO^ 
•TARGET VARIABLE* 

***************** 



•IS CHECK ON ?.•- 



• • 

* SET FLAG TO • 
->»SHOW ENABLEMENT*- 

* UNCERTAIN * 



SD250 

*****K5********< 
•IBMBERRB 

>»RAISE CHECK ON 

• ELEMENT 



****•*•**••**•• 



•01 * 
• Cll* 
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SD300 

♦ SUBROUTINE TO « 

• GET NEXT CHAR « 

* * 
*************** 



*****B2******** 

* STEP SOURCE 

* POINTER I 

* REDUCE BYTE 

* COUNT BY ONE 



*•**•«* 



»•*• 



. * ANY BYTES 
LEFT IN 
♦.RECORD ? . 



****C3********* 
* RETURN WITH < 
► NEXT CHAR " 
t * 

***»***•***••** 



. ♦ SCANNING 

LEADING 

•.BLANKS ? 



♦ YES 

I ♦♦♦♦ 

♦ C5 ♦ 



RAISE ERROR 

('NAME' FOR 

STRING) 

************** 



.* *♦♦*» 
*YES *05 * 
* B2* 



.*. SD310 

F2 *. *****F3******«»» 

.♦ ♦. ♦COMPUTE LENGTH 

.♦ANY RECORDS^. NO ♦ OF 1ST VDA. 

ALREADY .* >* ALLOWING FOR 

*. STACKED ?.♦ ♦ NEXT RECORD 

♦ . . • ♦ 

♦. .♦ *•*****••***•••• 



****G2 ♦*♦♦♦»»♦*♦ 

* 

COMPUTE NEW ♦ 

TOTAL OF SOURCE* 

CHARS ♦ 

**************** 



****G3^^^*^^*^^^ 

* 

CLEAR VDA COUNT* 

* 
I************* 



****J2* ********* 

* 

ADDRESS VDA AND* 

INCREMENT » 

LENGTH USED * 

* 

**************** 

I •*** 
l~>*05 * 
♦ A2 ♦ 



**************** 



**************** 



*****j4**** ****** 

♦ SET FORWARD ♦ 

♦ CHAIN IN ♦ 
♦PREVIOUS VDA OR^ 

♦ SAVE ADDR. IF ♦ 

♦ IST VDA * 
***************** 



SD330 

*****Klt******^^** 

♦ STORE ADDRESS ♦ 

♦ OF LATEST VDA ♦ 
♦AND SET LENGTH ♦ 

♦ USED ♦ 

♦ * 
***************** 



***** 

♦ 05 ♦ 

♦ h2* 
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♦****a;!«»»***«»«* 

* « 

* MOVE FROM ♦ 
•CURRENT RECORD » 

♦ INTO VDA * 

♦ ♦ 
♦♦*♦•*•*•♦»•♦»»«• 

**** 
»05 ♦ 

• B2 *-> 

* * 
**** 

SD350 1 

•****B2*********« 
♦TRANSMITTER » 
»-♦-*-•_*_*_♦_*_« 

* GET A NEW » 

♦ RECORD < 

♦ « 
***************** 



**C2******* 

» SET XMIT * 

♦FLAG IN SIOCB* 

IF ERROR ON t 
» INPUT * 
♦ DETECTED ♦ 
*********** 



****D3********* 
» RETURN WITH * 
' NEXT CHAR « 
' < 

•*♦*«»♦♦*♦«»»♦» 



SCANNING 

LEADING 

.BLANKS ? 



***** 
*01 * 

♦ Ha* 



* SCANNING *. 


NO 


DELIMITING . 


*"1 


♦.BLANKS ? .* 
♦. .♦ 


♦. . ♦ 


***** 


•YES 


*07 * 


1 ♦♦** 


♦ A2^ 


l->*07 * 


♦ * 
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SDtSO 

* SUBROUTINE TO ♦ 

* RAISE NAME * 

* * 
*************** 



* GET NEXT CHAR » 

* * 
****•♦*♦****♦♦♦♦* 



•*E1******* 



SDbOO 

**F1******* 

* ONSET • 

» SCANNING * 

< — *SOBSCRIPTS FLAG*<- 



.*'GET STRING*. YES 
♦ . DATA' ? .♦ 1 

*• •• 1 

*. . * V 







« 


.* ***** 






*NC *oa » 








♦ Dt* 








* * 








* 














\ 


? 




snabo 


. ♦ . 


****«C1*' ******** 




C-2 ♦. 


♦SD3C0 * 




♦ *. 




YES .* 


*, 


* *< — 


*. 


BLA 


« ? .» 



*••*•*****• 



». EQUATE ? 



SEMICOLON 7 



.■•■--I 



*****Q|)********** 



***************** 



************ 



YES ,♦ IS NEXT « 

* . CHAR ALSO A 

* . QUOTE ? . » 



***** 
*07 * 
» A2* 

* * 



G£T NEXT CHAR * 

^**************4 



*YES 

I **** 

l->*07 * 
» A2 ♦ 
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SD590 

* COMPUTE TOTAL 
» OF CHARG IN 

* ITEM i SET 
» LENGTH IN 

* DATA FIELD SLD 



> ANY (MAFS 

ALRHADK 
'.STACKED ?, 



. •ROOM IN 1ST*. 

. VDA FOR WHOLE. 

•. ITEM ? .• 



*C3********* 



ANY CHAHS 

ALREADY 

.STACKED ?. 



r»*«£3*****«*« 



.* ANY •. 
.♦BYTES LEFT ». UC 
. IN CURRENT .• — > 
♦.RECORD ? .• 



•*«*G3********* 

MOVE IN 

REMAINING BYTES 

- UP TO, BUT 



NOT ifjC. 
DELIMITER 



* SET FLAG « 
♦FOR SCANNING 

► DELIMITING 
♦ BLANKS 

* 4 
*********** 



****Ett*******^< 



**************i 



****Ga******^** 

STEP PAST COMMA 
*************** 



♦SET FCE BUFFER 

♦ FTPS FOR NEXT 

♦ ITEM 

• 

♦*4************^ 



**** 

SD655 

*****JU** 
•IDMBERRB 



RAISE NAME 
************** 



*****K4********* 

* 

* 

♦FREE ANY VDA'S 

**************** 



***** 
♦01 ♦ 
♦ HU^ 
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♦RAISE NAME FOR * 
♦FILE, ERROR FOR* 
♦ STRING * 
*♦»♦♦•*»♦»»♦**♦»* 



SD700 

♦♦♦♦AV!*** •♦•♦♦♦ 

♦ SUBROUIINE TO ♦ 
♦SCAN SUBSCRIPTS^ 

♦ ♦ 



(♦♦♦**»»»« 



► COMPUTE VO OF 

► ARRAY IN 

► BITS/PYTES AS 

► APPROP. 



**♦•**♦♦« 



**♦**! 



♦UNSET LEADINGS 

* ZERO, MINUS I '* 

♦ BLANK FLAGS ♦ 

* * 

♦♦♦♦♦♦••••* 



♦♦♦♦F2^^^^^^^^< 



•**«**♦♦*♦♦♦♦♦*• 



PLUS ? 
♦ . . ♦ 



* • 

* * 

•SET MINUS FLAG 



»49P3««*»««**4 



♦♦♦*•♦♦♦♦♦*♦ 



♦ 0^ ♦ 

♦ A3^ 

♦ * 



**GI|^^^^^^^ 



**««***«««« 



.•-*-*-*-*-*. 



♦ GET NEXT CHAR 
♦*****«********l 
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***** 
*09 * 
• A3* 



.» *. .* ANY ». 

.* COMMA OR *. YES .* NGN- ZERO ♦. 

->♦. RIGHT BRACKET.* >* . DIGITS l;~I , 

*. ? .* *. SUBSCRIPT. * 



(U T NEXT CHAR 



»*»^»»«**«» 
* * 

» » 

"OET ULANK KLA<; ♦<- 



>***B5********* 



*************** 



.*.*-*-* 



;tJL'.-,CRIF'T CHAR 
COUNT 



► MORE THA.'J b*. VEE 
NON-ZfRO .* 

'.Liion;- ? .• 



• •**c; j********* 

RhMOVL ZONE 

THEN ADD INTO 

SUL'SCRIPT SO 

FAR 

*************** 



->*RAISE NAME FOR ♦< 
♦FILE, ERROR FOR* 

♦ rTRi;iG * 

***************** 



•**«*Q5********** 

* ACD S(I)*M<I) • 

* TO SUM FOR * 
♦ELtMENT ADDRESS* 

* (INIT VO) * 

* * 
***************** 



.COMMA FOUND ?.»<- 



♦YES 
I **** 
I— >*0R * 
* H2 ♦ 



♦♦G5******* 
• UNSET * 
» SCANNING ♦ 
SUBSCRIPTS FLAG^ 



*********** 



*****j5********* 



***************4 



***** 

♦03 ♦ 
* E3^ 
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*SCkIARS ( WHOLE* 

• ARRAYS • 

* * 



****h2********* 

• SINGLE ARRAY * 

• ELEMENTS « 



••••A3********* 

• ALL KNOWN * 

• VARIABLES « 

> 4 

•**•*•••*••*••• 



••••AU********* 
*CHECK OUTPUT CF* 
*SINGLE VARIABLE* 



»****B2********** 
» * 

» • 

> HOUSEKEEPING •<- 



• •*• 

• 01 • 

• Dl 



* ADDRESS FIRST * 
*OR NEXT SYMTAB * 

* IN CHAIN * 



**•* 
•01 * 
» D2 ♦-> 

• •*• 
SD020 V 

•••••02********** 

• * 

• STEP TO FIRST * 
•OR NEXT SXMTAB ♦ 

• IN LIST • 

••••••••••••••••« 



3D350 

•♦•♦*D 3* »♦•»*•*• 

• GET EASED/CTL 
» ADDRESSING 

• VALUE IF ANY 

• FROM ICB 



•••*•*« 



>••••*••« 



El •. 


E2 • 


.• LAST •. 


. • 


.•ELEMENT IN •. YES 


.• 


.CHAIN ALREADY. • , 


•. ENTRY A 


*. USED 7 .* 1 


* . 



• •••• 

• 02 » 

• G5» 



YES NO . * CHECK ON « 

.,< •.SINGLE ARRAY 

♦.ELEMENT ?.• 
» . . ♦ 
«. . • 
• YES 



•••••F2 •*••***••• 
•SET A(ELT/SLD) • 

• IN SIOCB FOR ♦ 

• CALL TO 'PUT ♦ 

• LIST* • 



•••••G3^ ••••**••• 

* ADDRESS ITEM < 
•(OR LOCATOR IF « 

>• STRING OR < 

* ARRAY) FROM « 

* SYMTAB < 



SD160 

• ••••Hli^^*******^ 

• GET VDA FOR • 
•INDEXING TABLE * 

— >* ( SUBSCRIPT * 

• STRING • 



• •*• 

•02 • 

->• A2 • 



• ••• 

• 01 • 

• K3 •-> 



* ••• 
SD170 

•••••K3^^^^^^^^^^ 

* SET ADDRS. OF * 
*DED, NAME BCD (* 
*SUBSCRIPTS SLD *<- 

* IN SIOCB * 



;500 « 

• ••••jtt^**«^««^*« 
•INITIALISE VDA • 

• ( SET UP • 

• SUBSCRIPT • 
♦STRING FOR 1ST • 
•OR ONLY ELEMENT^ 



• •••• 
•02 • 

* A2* 
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» A2 » — 1 
* * 
L80 V 



♦♦♦♦♦A2*»******** 
♦IBMBSLOA ♦ 
♦-♦-»-♦-♦-»-»-»-» 

♦ PUT OUT WHOLE ♦ 
» ITEM ♦ 

• ♦ 
***************** 



►* FREE VCA « 
* * 

» * 

***************** 



.♦LAST ARRAY ♦. 
.ELEMENT USED . 
• . ? .♦ 



•****P2* ********* 

* ADDRESS NEXT * 

* ELEMENT t SET * 

* OP SUBSCRIPT * 
» STRING * 

* • 
*«••«•*•**•*•***• 



•****G2********** 



***************** 



*•** 

*01 ♦ 

->* K3 * 



SD200 .*. 






IBMBSDOT 




EH *. 








. * *. 






****E5******»** 


C .*TEST ENTRY 


* 


C 


*FINAL SEMICOLON* 


r * . POINT 




*— — »i 


* ONLY * 


♦ . 


*" 




* * 


*. . ♦ 








V *. .* 










***** * AiB 










*01 • 












* Dl* 












* * 












* 












« 










SD210 .*. 






') 


FU *. 






•••**F5********** 


. * *. 






* * 


NO .♦ 


* 




* * 


f *.END OF LIST 


7. 


* 


* HOUSEKEEPING * 


*. 


* 




* * 


*. . * 






* * 


♦ . .* 








***** * YES 










*01 * 






**** 




» D2* 






*02 ♦ 




* * 






♦ G5 ♦-> 




* 

1 






* * 
**** 




• *. 






SD220 V 


Gl» *. 






*****Q5* ••**•*••• 


. * *. 






* * 


.*TERMI MATING* 


YES ' 


i * APPEND • 


*. CALL ? 




* 


— >* SEMICOLON TC * 


*. 


** 




* OUTPUT * 


*. 
*. 


.» 
.* 






• * 



*****JS*** ******* 
•TRANSMITTER * 
••*-*-•-*-•-*-*•* 

• POT OOT LAST • 

• LINE * 

• * 
***************** 



****KS********* 

• RETURN TO * 

* CALLER * 
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****h1***«***** 
* EDIT DIRECTED * 
► INPUT * 
t 4 

*************** 



» EDIT DIRECTED « 
» OUTPOT « 
> 4 



*****B1********** 
•HOUSEKEEPING t * 

* INITIALISE 

* RETRY 

* PARAMETERS 

* * 



•<- 



**C1******* 

♦ SET XMIT ♦ 
*FLAS IF ERROR* 

» ON INPUT * 
* DETECTED • 

* * 



*****01**** ****** 
•ADDRESS CORRECT* 

* FORMAT DED * 

* CONTAINING * 
♦FIELD WIDTH IF * 

* ANY * 



. ♦. 






SE200 




El ♦. 






•••••£2^***^^^^*^ 


.* * 






* CALC. FIELD * 


.* MISSING 


♦ . 


YES 


* WIDTH FROM * 


*. LENGTH ON 






>* SOURCE * 


*.O0TP0T ? 


• ' 




• ATTRIBUTES * 


♦ . .* 






* * 


• . .♦ 








♦ NO 










***• 












♦01 ♦ 












♦ F1 ♦-> 












* * 












• •** t 








SE020 .*. 








F1 ♦. 








.♦ * 








.* ROOM IN 


*. 


MO 




*. BUFFER ? 








», 


• ' 






♦. .♦ 








♦ . .♦ 




' p 




♦ YES 




♦♦*♦♦ 

♦ 02 ♦ 

♦ A1^ 

♦ ♦ 
♦ 




.♦. 






SE030 


G1 ♦. 






•***«G2^^***^*^*^ 


.♦ ♦ 






♦ SET SOURCE ♦ 


.♦ 


♦ , 


NO 


♦FARM. ( ADDRESS^ 


♦. OUTPUT ? 




#—■>»« 


SATMDTIT nTPS/'**rAfi * 


*' 




♦ TABLE ♦ 


*. 


.* 






* 


* 



SE080 
NO .♦ 



♦•♦♦••♦♦♦♦••*••♦* 



VDA USED 7 *.♦ 

♦. .♦ 

♦. .♦ 



♦ • 

* GET LENGTH CF * 
>* ITEM AND * 

* ADDRESS VDA * 

♦ * 
♦♦♦♦♦♦♦♦•***♦•*** 



• 02 ♦ 
->* D3 • 



•••••H1*********^ 

• SET TARGET • 
*PARM. t ADDRESS* 
♦OUTPUT DIRECTOR* 

* TABLE ♦ 



f — >♦. OUTPOT ? .♦ 



.♦ ♦. 
. * TRANSMIT *. NO 
. FLAGGED ? .* 



**♦• 
•01 < 
• J1 



♦ -> 



♦ ♦♦♦ 
SE050 

*•*** J t •••*••••** 

♦DIRECTOR ♦ 
♦-♦-♦-♦-♦-•-♦-♦-♦ 

♦ SELECT « CALL •<- 
♦FORMAT DIRECTORS 



♦•*••♦*••••••••♦♦ 



J2 ♦. 

.♦ *, ♦♦♦* 

NO .♦ ♦. YES ♦ ♦ 

♦. OUTPUT ? .♦ >♦ H5 ♦ 

♦ . .♦ • ♦ 

♦. .* •♦•♦ 

♦. .♦ 



**«*Kt**»****«* 



INCREASE ITEM 
COUNT 



• •*• 

• 01 

B5 



* ♦ 1 

• ••• V 



• 


YES 




«♦•• 

♦ ♦ 

♦ H5 ♦ 

♦ ♦ 
♦ ♦♦♦ 


SEKOO < 

♦♦♦♦♦J(|^*******^* 
♦IBMBEBRB ♦ 


♦ 
♦ 
• 



♦RAISE TRANSMIT ♦ 

♦ ♦ 

•••*••*•••••••••• 



•* GET/PUT *. NO 

— >♦. STRING CALL .* 

♦. REQD 7 .♦ 



♦••♦♦J5^*** ••*••• 

♦lEKESIST ♦ 

- - ♦-♦-♦_♦_♦-♦_♦ 

♦ STRING ♦ 

♦ HOUSEKEEPING ♦ 

♦ * 
**•••••••**•*••*• 



SE070 



♦♦♦♦K5^***^**** 
► RETURN TO « 
» CALLER * 

¥ * 

•••••••**•***•• 
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• TRANSf^ITTER » 

• GET A NEW « 

• flUFFEB « 



->*.ENC OF FIIE 7.*- 



• lefBERfie 

>* RAISE ENDFIIE 

• (ERROR FOR 

• STPING) 



•***A 5* ******** 
*RE1URK TO NEXT • 
>* STATEMENT • 



*i 


***BI**** 


► ♦•• 


1* 


• < 


GET VDA ( 
ADDRESS 
SIOCB 

>•••*••••• 


SET 
[N 

• ••• 


• • 



CI 



IBMESECR 

****E2* ******** 

* * 

* RETRY POINT * 



**E3******* 

* SET Xf.n • 

*rLAG IF Ei«RCR* 

• ON INPUT • 

* DETECTED • 



*••* 
*01 « 

->* n 



OOTPUX 7 

**. .* 

*. .* 
* NO 



•••• 


*••* 


*01 * 


*02 


>* J1 • 


* C3 



* C3 * — 1 

* • 1 
**** I 

90 V 



, * _>* 



* MOVE BETKEER 

* VDA AND THIS 

* BUFFER 



SE110 « 

•••••cs****** 

•TIIANSKITTIR 



•GET MUT BUrPtR* 



• ADDRESS IKPUT * 
•>*CIRECTOIi TJtELE • 



* XE8 

L**** 
*01 • 
>* HS * 



• ••* 

• 01 * 
->• J1 



.•• 
H3 •. 
•••• .• *. 

• • YES •• •. 

♦ D3 •<—-•• OUTPUT 7 •• 



• ••* 



*, 



. * 



*. 



J3 •. 
.* *. 
.* *. YES 

•.END OF fllE 7.*- 

•• •* 

*. .* 

*• •• 

• NC 



•*K3******* 

• SET XMIT ♦ 

•FLAG IF ERROR* 

. * ON INPUI « 

* DETECTED * 



>— >* RAISE ERROR * 



Chart DSED. Edit-directed I/O housekeeping (part 2 of 2) 



Licensed Material - Property of IBM 



Part 2 : Flowcharts 



305 



IBMBSEEA 

* DATA FORMAT * 

* INPUT » 

* 4 



IBMBSEHA 

» DATA FORMAT * 

* OUTPUT « 

* 4 



•X-FCRMAT OUTPUT* 

* • 



IBMBSEHC 

****A(|********* 

• COL-FORMAT • 

• OUTPUT • 

• 4 



♦♦♦♦♦B2 ♦♦♦♦♦•»•♦< 



->* HOUSEKEEPING 



•*»••••**•••••**« 



k****C2*********< 



t***************4 



♦X- FORMAT INPUT 



lEMBSXCC 

****C<t* *••***•• 

* COL- FORMAT < 

* INPUT « 

* < 
*************** 



*.DATA FORMAT ?.» 



IBMBSEER 

•***D3********* 

* CONVERSION » 

* RETRY POINT « 

* « 
*************** 



*****^2********** 

* * 
•ADDRESS ONCA ( * 

♦ INITIALISE ♦ 
» RETRY PARMS • 

• * 



SE005 

**f2******* 

* SET XMIT * 

♦FLAG IF ERROR* 

• ON INPUT * 

• DETECTED ♦ 



• YES 


• * 


**♦» 


♦ KU ♦ 


♦ 01 ♦ 


* * 


* EM •-> 


**** 


♦ * 




**** 1 




SE020 .♦. 




EU *. 





BUFFER ? .♦ 1 

•*. .♦•* I 



***** 
•YES *02 • 
• Gl» 



.♦MISSIMG*. 
.•FIELD WIDTH*. NO 
. ON OUTPUT 7 .♦ 



* * 

• G3 • 

♦ • 
**•• 



• 02 ♦ 

♦ D2^ 



♦SET SOURCE PARM* 

• TO CURRENT ♦ 
•BUFFER ACCRESS • 

* * 
••****••**•**•**• 



*****fS* ********* 

* * 
*£E1 TARGET PARf* 

->* TO CURRENT • 
♦BUFfER ADDRESS ♦ 

• * 



*♦♦« 
•01 • 
♦ G5 



• ♦•« 
SE025 

*****Q^**** ****** 



***************** 



*•* •HZ ••*•*•**• 



♦ ♦** 
SEOUO 

****»}{n********* 



**•*•**•**•*•*** 



••** (J 3 ♦**•**•••« 

• COMPLETE FED • 

• HITH SIRING • 
>• ALLOCATED • 

• LENGTH • 



SE007 

**»**fi2********** 
•IBMBSMHA • 

•CALCULATE FIELDS 

* MIDTH ( • 

♦ COMPLETE FED • 

••••**•••••**••** 



•; OUTPUT ? 
». 

•. .• 
•• .• 


* 
• 


YES 

•-J 

*•••• 


• ♦•♦ 
•01 • 

• K« •-> 

• • 


>NC 




• 02 • 

• D2^ 

* • 
* 


• ••• 
SEOHS 

••***K«*< 




»*< 


»• 



***** 
• 03 • 
» A2» 

* * 



*. A- FORMAT 7 



.:•• I 



*. 

4 


.* »•«*• 
NC *03 * 

♦ E2* 

* ♦ 


SE055 

♦••••FS» 
•DIRECTOI 
*.*.*.*- 
• SELECT 
•FORMAT I 
• 


« • 

»-*-*.♦.• 
t CALL • 
)I RECTORS 

* 
»***♦***• 


*• 
•0 
• 1 

• 


1 

»•• 
2 ♦ 
*2* 

* 
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*«***A2 ********** 

• * 

♦ INCREASE ITEM * 
♦COUNT IN SIOCB * 

* i COPY TO FCB • 

* * 
***************** 



. * >*. VDA USED ? 



.» INPUT ». 
•TRANSMll AT*. YES 
ANY TIME ? .* 



SEUOO 

*****C3 ********** 
♦IBMBERRB * 



♦RAISE TRANSMIT ♦ 
* * 

***************** 



**** 
*02 • 
* D2 * 



.* GET/PUT ♦. NO 
->♦. STRING CALL .♦ — > 
♦. REQD ? .♦ 



* * 

* D2 * 

* * 
**** 



>****«******4 



**** 

♦02 • 

« 01 * — 



SE070 V 

****P2 ********* 

* RETURN TO « 

* CALLER « 

* « 
***•**•******•* 



♦ GET VDA C SET 
>• ADDRESS IN 

♦ SIOCB 



**************** 



• ••**|]1********** 
*TRANSMITTER * 

*-*_•-*-•_•-•-•-* 

* GET A NEW • 

• . BUFFER * 

♦ ♦ 
***•*«****•***•*• 



OUTPUT 7 




.♦ 


• 


.• 




*• .♦ 




♦YES 




1 *♦** 
l->*01 * 






♦ G5 



♦•••**•*•••*••••* 





. • 






• . 


YES 


• 


.KNU 


OF 


FILE 


7. 


-J 




*, 
• 




.♦ 


* 






• . 


.« 
*N0 

1 




• •••* 
*0<« • 

* K3^ 



••Kl******* 

• SET XWT ♦ 
♦FLAG IF ERROR* 

• ON INPUT 4 
* DETECTED • 

• • 



,♦ ***** 
♦YES ♦Ol * 
♦ HK* 



*****^t4 ********** 

* * 

* GET LENGTH OF * 

* ITEM AND * 

* ADDRESS VDA * 

* * 
***************** 

**** 



**** 
SE090 

*****0I|********4 



**♦♦*♦♦♦♦******** 



. * ROOM IN 
->♦. BUFFER ? 

». 



♦ ****FI(********** 
♦SE180 ♦ 
♦-♦-*-*-♦-*.*-*-* 

♦ MOVE BETWEEN ♦ 

♦ VDA AND THIS ♦ 

♦ BUFFER ♦ 
***************** 



SEllO 

♦ ♦♦♦♦G <•♦♦♦♦♦♦♦♦* 

♦TRANSMITTER 

♦-♦-*-♦-♦-♦.*_♦. 



SE120 

♦♦♦♦♦E5^^* ♦♦♦♦♦♦♦ 
♦SE180 ♦ 

♦-*-♦.♦-*-♦-*-♦-♦ 

>* MOVE REST OF * 

* ITEM * 



******•♦♦**•***•♦ 



*****F5********** 



***************** 



♦GET NEXT BUFFER 



G5 

.♦ 

OUTPUT 7 



.-••-l 



♦ ♦♦♦ 

♦ * 

♦ DM ♦ 

♦ ♦ 
*♦*♦ 






♦.END OF FILE 7.< 



••K4******* 

♦ SET XMIT ♦ 
♦FLAG IF ERRORS 

♦ ON INPUT * 
* DETECTED ♦ 

* * 
*•***♦****♦ 



->♦ RAISE ERROR 



• •••• 
•01 ♦ 

* E«* 
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• •♦♦♦ 

• 03 • 

• A2« 



SE210 

*****C2********** 
♦CONVERT » 

♦ SELECT t CALL » 

♦ CONVERSION TO • 

♦ E/P-rORMAT • 
***************** 

I *••* 
l->*02 » 
• A2 ♦ 



SE230 

**»**A3 ********** 
*SET CONV. TYPE * 

* CODE FOR * 
>* E/?-FORMAT ♦- 

* SOURCE ♦ 

* * 
***************** 



*SET UP ONSOURCE 
>* SLD i CCNV. 
* TYPE CODE 



SE225 ^ 

«****C3** ******** 
*IBMBCCSA * 

*-*-*-*-*-*-*.*-* 
*CONVERT BETWEEN* 

* STRING t * 

* E/F- FORMAT * 
***************** 

**** 
l->*02 * 
* A2 * 



SE2«0 
VES .* 



.*.*-*-*-*-*.*-* 

* SELECT i CALL * 

* CONVERSION TO ♦ 

* ARITH * 

***************** 

I **** 

•->*02 * 
* A2 ♦ 



***• 
*03 ♦ 

♦ E2 • — 1 

* * I 

• *** I 

250 V 



•COPY PLIST FOR » 

* A- FORMAT TO * 

* WORKSPACE ♦ 



SE260 

*****P2********** 
•SET UP CHAR SLD* 
*t CHAR DED FOR * 

* SOURCE OR * 

* TARGET IN • 

* BUFFER OR VDA * 
*•**•*•**•**•**** 



*****G2********** 

* * 

* MODIFY t * 
♦COMPLETE PLIfT * 

* IN WORKSPACE • 

* * 
***************** 



*♦••***********♦ 



*****)]lt********** 
♦IBMBCCAA ♦ 
*-*-*_*-*-*.*-*-* 

* CONVERT * 

* CHARACTER TO * 

* ARITH • 
***♦**•****♦*♦♦** 

**** 
•~>*02 * 
* A2 * 



*****H 5* ********* 
♦IBKECC-A ♦ 

*-*-*-*-•-*-.*-*-* 

* SELECT i CALL ♦ 

* STRING ♦ 

* CONVERSION • 
***************** 

I **** 



->*.BIT SOURCE 7 



*****X2********^^ 
♦IBNBCACA * 
*_*-•-•-•-*-*_•-* 

♦ CONVERT ARITH • 

♦ TO CHARACTER * 

♦ * 
♦***•••***♦♦♦♦••• 



*****](3** ****••** 
*IBHBCBCA * 
«■.*.*.*.*.«-*.*—* 
*CCNVERT BIT TO * 

* CHARACTER ♦ 

♦ ♦ 
*•****•*•***•**** 



***** 
*02 * 
* A2* 
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****•)( I)********** 
*IBMECCCA * 
«-*-*-*-*-*.*-•_* 

* * 
♦MOVE TO TARGET ♦ 

* * 
***************** 
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***** 
*0i» • 
» A2» 



A2 •. 
. * * 
, * 
*. COLUMN 7 



*****A3**»**»**»* 

* * 
♦IF X-WIDTH < » 

>• THEN SET *- 

* X-WIDTH = * 



RAISE ERROR • 

« 

*************** 



*****C2********** 



***************** 



♦ IF COL > 

♦ LINESIZE THEN 

♦ SET COL = 1 

* 
**************** 



ON RIGHT 


* 


YES 




CCL I 




--{ 


* 


, * 


• 




* * 




***** 




• NO 




• 02 * 



**** 

* * 

♦ H2 * 

* * 
**** 

SE350 * 

*****H2********< 

* 

•ADVANCE BUFFER 

*PCINTERS TO END 

• OF RECORD 
* 
********«******i 

»*** 

♦ * 
» J2 ♦ 

* *-> 

»**♦ 
SE360 

tt»**j2*** ****** 

♦TRANSMITTER 

*-*-*-*-*-*-*-•- 

• LOCATE NEXT 

• BUFFER 
* 
**************** 



>».END OF FILE ?.* 



K3 
****K2********* 
* * YES . • STRING OR • 

► RAISE ERROR ♦< ♦.MID X-FCRMAT 

> • *. ? .• 

*************** 



* 


ANY 


BYTES 


* 


NO 




TO 


SKIP 7 




-1 


* 




.♦ 


* 




* 


. , * 

• YES 

1 




***** 

♦ 02 * 

• D2^ 

♦ ♦ 



. ♦ ENOUGH ♦. NO 

. BYTES IN .♦ 

♦.BUFFER 7 .♦ 



*****£ 5* ***••**•* 

♦ • 

♦ REDUCE SKIP ♦ 
->♦ VALUE EY THIS ♦ 

♦ NUMBER ♦ 



->♦. OUTPUT 7 



*****Ga^ ♦♦♦♦♦♦♦♦♦ 
♦SEI70 ♦ 

•-•.*-♦-•-•.*.♦-• 

* • 
♦BLANK OUT FIELDS 

• • 
•****••*****•*••• 



F5 ■». 
.♦ ♦. 
.♦ ♦. NC 
♦. OUTPUT 7 .♦ 1 

'♦. .♦' V 

♦. .* **** 
♦YES * • 
♦ H2 ♦ 



END 


OF ♦. YES 


RECORD 7 .♦ 1 

♦. .♦•• I 


*, ,♦ •*•• 


♦ NC ♦ ♦ 




♦ J2 ♦ 




* * 




«*** 



>**********•« 



••••**••• 



.*-*_*_*_*-* 



♦ BLANK OUT 

♦ REMAINDER OF 

♦ RECORD 
*************** 



♦ *♦♦ 
->^02 ♦ 

♦ D2 ♦ 



♦ RAISE ENDFILE ♦ 



••**KS* •••«**** 
♦REIORN TO NEXT < 
• STATEMENT « 
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IBMBSEHA 

* DATA fOr^MATS « 

• OUTPUT » 



•X-FORMAT OUTPUT* 



ISMESEHC 

****;^ II* «*•**««« 

* col-fo!<m;iT 

* OUTPUT 



»***n2» *•»**•♦♦» 

HOUSEKiiEPING ♦ 



♦♦»*»c^»**»»**»** 



♦.DATA FORMAT 



ADDRESS ONCA 
INITIALISE 
RETRY PAKWn 

••»♦»•♦»»•♦•» 



IBKByEHR 

♦ CCNVhRSIOM 

♦ RETRV FCINT * 

♦ * 


*.***|:'S**«,>«>«< 
»~?!AN«yiTT£.? 


f . GFT , 

♦ auF 

/ 

oEun 

. • * END 
>*. EUFF 


~ES 


'1 
PE020 .♦. 
E« 
. ♦ ♦ . 
. ♦ hCO^ IN * . NO 
— >•. PUFFER ? .» 


VE.= 

J.- '•. 
.R .•■ 



"1 



•»***f U«t*»****« 

•SET TAHGET PAR(« 
* TO CURRLJ-^ 
fFEP A3Dr(ESS 



>•«*••*•«*****• 



COMPLETE FED 

WITH STRING 

ALLOCATED 

LENGTH 



*.E/F-FCRyAT 



GtT vr.-"* I, S5T 
•lUrSrlF;- I.i 

,nccH 



5007 V 

•IBMBSMWA * 

•CALCULATE FIELDS 

• WIDTH i ♦ 

• COMPLETE FED 



»**« 



• •♦♦ 



*.*-*-•-*-*. 



****4**«^«***« 
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• * 

• INCREASS ITEM • 
♦COUNT IN LIOCB * 

• & COPY TO FCB • 



•. VDA US EL; 



♦ iiiHMr.i; T 



♦ UPDATIi CUkKhNT 

* ll:>t(VIII OH PAD 
» WIIM BLnNKr, 



* GET LENGTH OF 
>* ITEM AND 

* ADDRESS VDA 

* 



«***4******4 



3E120 

♦ ♦•»*D'i«*« 
•SEIRO 



.*.*.*.«.«- 



*****«*•«****•«** 



SEllO 

•TBANSMmtR 



***•*•***•*•*••< 



***t************ 



*****;; 5* ••****** 



•«*•*••«**♦«****« 



• D2 « 
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.♦STRING *. 
. »SOUPCE FOR 
.E/F FORMAT 7 



♦SET UP ONSOURCE^ 
>♦ SLD t CCNV. ♦ 
♦ TXPE CODE ♦ 

***************** 



SE210 V 

♦♦♦♦♦B2^+^^^+++^^ 
♦CONVERT ♦ 
♦_*_♦_♦_♦_♦_♦_♦_» 

♦ SELECT S CALL ♦ 

♦ CONVERSION TO ♦ 

♦ E/F FORMAT ♦ 
***************** 



♦ CONVERT FROM ♦ 

♦ STRING TO E/F ♦ 

♦ FORMAT * 



♦COPY PIIST FOR 

♦ A-FORMAT TO 

♦ WORKSPACE 

♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



*****P2** ******** 
♦SET UP CHAR SLD^ 
♦6 CHAR DED FOR • 

♦ TARGET IN ♦ 

* BUFFER OR VDA ♦ 

♦♦♦*♦♦♦♦♦*♦♦♦♦♦♦♦ 



♦ ♦♦♦♦G ;;♦♦♦♦♦♦♦♦♦♦ 

♦ MODIFY 6 ♦ 

♦COMPLETE FLIST ♦ 

♦ IN WORKSPACE ♦ 

♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



->♦ . BIT SOUPCE 



-♦.♦.♦.♦. 



*♦***♦•**♦♦♦***** 



*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦HOVE TO TARGET 



*********** ***4 
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A2 ». 

. ♦ » 

COLUMN ? 



*.PUT SIRING 



♦ 

*IF X-WIDTH < 
>* THEN SET 
* X-WIDTH = 



►***B3*****»»** 
RAISE ERROR < 

►••♦»♦*♦***♦*♦♦ 



• * 
•IF COL < 1 OR >» 

• LINESIZE THEN * 

• SET COL =1 • 



. * 


ON RIGHT 


• 


YES 






COL ? 




, 


* 






* 




♦ 


• ■•lO 




♦ 02 



« * 

« F2 * 

• ♦-> 

**** 
3E360 

•TRANSMITTER 
»_♦_»_•-♦_♦_♦_» 

• LOCATE NEXT 

• PUfFEK 



L>/"\ 



cu * 

« 



.♦ ***** 

♦YES ♦02 * 

♦ D2^ 



.» ENOUGH ♦. 

. BYTES IN 
♦.BUFFER ? .♦ 



SE380 

♦SE170 



♦BLANK OUT FIELDS 
♦ ♦ 

*♦♦♦♦♦♦♦*♦*♦*♦♦♦♦ 



*****P0**** ****** 



**************** 



**** 
->^02 ♦ 
♦ 02 ♦ 



*****05********** 

♦ REDUCE SKIP ♦ 
->♦ VALUE BY THIS ♦ 

♦ NUMBER ♦ 

♦ * 
***************** 



7 *. l&O 



«*** 

* * 

♦ F2 « 

♦ ♦ 
«*•* 



*****F5* ********* 
♦SE170 ♦ 

*_*_»_*_*_*_*_•_* 

♦ BLANK CUT * 

♦ RiMAINDEP OF ♦ 

♦ RECORD ♦ 
***************** 



*****G5*** ******* 

* ♦ 
♦ADVANCE BUFFER ♦ 

-♦POINTERS TO END+ 

* or RECORD • 

***************** 
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IBMBSEIA 

* EDIT DIRECTED 

* INPUT 



»***B2*»*»»***« 

GST VDA FOR 

SOURCrS AS 

EXTENSION OF 

LIBRARY SAVE 

AREA 



SE08U 

♦TRANSMITTER ♦ 

r — >» GET A NEW * 

• BUFFER • 

* * 



SE170 

*****CU* 
♦lEMBEPRB 



♦.END OF FILE 



-♦-•-*-•- 



->♦ RAISE ENDFIl 

♦ (ERROR FOR 

♦ STRING) 



♦RETURN TO NEXT 
>♦ STATEMENT 

♦•♦•»»♦»♦»»♦•»» 



* SET SIOCB ♦ 
»XMIT FLAG IF ♦ 

'ERROR ON INPUT 
• DETECTED ♦ 

* * 



♦ SET SIOCB ♦ 
♦XMIT FLAG IF ♦ 

♦ERROR ON INPUT ♦ 
♦ DETECTED ♦ 

* * 
♦♦*•♦♦**♦♦♦ 



SEUOO V 

tt***i;/**» ******* 
♦SET ADDRSRS OF ♦ 
♦VDA IN SSRC IN ♦ 

♦ SIOCB (, ADJUST ♦< 
♦NAB IN CALLER "S^ 

♦ DSA ♦ 
***************** 



**•* *£!(**♦•♦***•♦ 

• • 
♦SET ADDRESS OF ♦ 

->»BOFFER IN SSRC ♦ 

♦ IN SIOCB ♦ 

* * 



.♦ WILL THIS ♦. 
r — >♦. BUFFER FINISH.* 
♦. ITEM ? .♦ 



IBMBSEIT 

***»Q^»*******» 

♦ TRANSMIT ON * 

• EDIT INPUT * 

* t 
♦•♦••*••******• 



t****Hi********* 



RAlilt. ERHOB 
************** 



> . tND LM KILK 



•♦**•••♦♦< 



»PAISE TRANSMIT ♦ 
**♦•*•*****••*♦•« 



♦ SET UOCB ♦ 
♦XMIT FL\G IF ♦ 
♦tRKOR ON INPUT 
♦ DETECTED ♦ 



(••**jj******«**« 



••J^»****** 



♦•*****••*• 



V 

**ll.i******* 

RETURN TO 

CALLER 



V 

RETURN TO » 
CALLER * 
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***•*•*•***••** 



•****B2** ******** 

• • 
*GET FIELD WIDTH* 

• FROM TARGET * 

• FORMAT OED * 



V 
.*. 

C2 *. 

.* * 

ROOM IN 

BUFFER 7 



* MOVE REST OF 
•>*ITEM TO EUFFER 



****E2********* 



****03********* 



•«**«E3********** 

• * 

• INCREASE ITEM • 
•COUNT IN SIOCB * 
*AND COPY TO FCB* 



SE020 

•***F2********* 
TRANSMITTER 



.*PUT STRING *. NO 
>. CALL REOD ? .* 



•****G3********** 
•IBMBSIST * 

*UPDATE CURRENT * 

• LENGTH OR PAD * 

* WITH BLANKS * 



****H3********* 
» RETURN TO * 
* CALLER « 
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» F/E FORMAT < 
» INPUT < 

> 4 



*****B2* ********* 



**•**•****•••**** 



•****Q2 ********** 
*IBMBCCSIV * 
•-•-•-*-•-•-*-*-* 

• CONVERT F/E * 

• FORMAT TO • 

• STRING • 
***************** 



D3 *. 
. ♦ *. 

» FORMAT ♦ 
LENGTH ZERO 



<****{)l|********** 

*CONVERSION ♦ 

*-*-*.*-•-*-*-*-* 

>* CONVERT TO • 

* ARITHMETIC ♦ 

* * 
***************** 



*IF NOT C- FORMAT* 

* CLEAR I/O •< 
•CONVERSION FLAG* 

* * 
***************** 



****F2********* 

► RETURN TO < 

► CALLER « 

► « 

*************** 



COMPLEX *. 
TARGET . * 



FU *. 
.* * 

C- FORMAT 



*-*•*.*-•-•-*-*-* 
■*ZERO IMAGINARY * 
•PART OF TARGET * 
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IBMBSFOh 



» F/E FORMAT « 

► OUTPUT * 

> * 



•.STRING SOURCE. ♦- 



*****Q2********** 



••**•*•••**••••** 



*****02*** ******* 
•CONVERSION * 
*-*-*-*-•-•-*-*-• 

• CONVERT TO • 

• FORMAT ♦ 

• * 
*******•***•**••* 



SP030 V 

•••••D3**^ ***•*•• 

•lEMBCCSA • 

•-•-*-»-•-•-♦-♦-• 

♦CONVERT STRING • 

♦ TO FORMAT * 

* * 
********•****•*•• 



****E2 ********* 

• RETURN TO • 

• CALLER » 
» • 
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> GET FILE * 



I3KBSIIB 

****A2********* 

* * 

♦ GET FILE SKIP • 



IBMBSIIC 

****A3********* 

* • 

♦ GET FILE CCPX • 



*****B3* •*••***•* 



>• HOUSEKEEPING 



► G£T FILE aKIF « 

► COPY « 



♦TEBKINATE COPY • 



V 

• •• 

C3 ♦. 

• • •• 

YES .* TEBMINATE 

— •• COPY 7 

♦. . 

•. .» 
•. . • 
• (JO 



•SHOO ♦ 



SZ010 .*. 

E3 •. 

.* * 
. • STREAM 
• .INFOT FIu: 
*. 

*. .* 



• 01 • 

• E« • — 1 

• • 1 
M70 I 



« 

BAISE BBROR « 



.• 



,* 



♦ , 



SI1S0 

•lEMBEPRE 



.END OF FILE ?. 

•. •• 

♦ . •• 

•• •• 

• NO 



•ZERO ITEM COOMT^ 

• i CLEAR FLAGS • 

• IN SIOCB • 






•-*•.•-•-•-*-•-«-• 



• RAISE ENDFILE • 






••••FS^*^***«** 
•RETURN TO NEXT * 
■>• STATEKENT * 



SET A(FCe) ( 

AlONCA) IN 

SIOCE 



V 
SZ020 . *. 

J3 *. 
.* •• 

.* COPY FLAG *. YES 

•. ON ? .• 

♦. .♦ 

•• • • 

*. .• 



•-•-•-•-•-*-*-••• 

->*HRITE AMY COPY •- 

* INFORMATION • 



L 



NC 
•*•• 
• 02 * 

>• A3 



• *•• 

• 02 « 
->• A3 



Chart DSII. GET FILE initialization (part 1 of 2) 



318 Licensed Material - Property of IBM 



• •*• 
•02 • 

• «3 *- 



•.COPY OPTIOK ?.•— 



«-•-•-•-*- 



• •••• 
•01 • 

• £«• 



• RAISE BRROR •<— 



• SIT copy • 

• PMMRi* ( • 
•COPIt POINTU IN* 

• rc» • 



.* *. NO 

•.SKIP OPTION ?.*- 

• • .• 

*. .* 



•-•••-•-•-•> 



••••JS* 

• aBTQim TO 

->* CAtlER 
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► GET FILE « 



» PUT FILE PAGE ♦ 

* * 



♦ PUT FILE LINE * 

* * 
*************** 



IBMBSIOD 

****;^i|********* 

• PUT FILE PAGE * 

• LINE < 

• 4 
*************** 



• GET FILE SKIF 

**************4 



» POT PILE * 

t 4 

»*•♦»•****»«♦** 



*****B3********** 

* • 

* * 
->♦ HOUSEKEEPING *<- 

* * 

* * 
***************** 



►♦••B5*******«» 

PUT FILE SKIF 
>****«********* 



.*-*-*-*-*-• 

* *< 

* OPEN THE FILE » 

* * 
***************** 



SI130 

****D1 ********* 
« IMPLICIT OPEN ♦ 
*FAILUIl£. RAISE ♦<- 



SHOO V 

****G2*** ****** 
* INVALID FILE 
OPERATION 



IS IT END *. NO 

OF PILE ? .♦ 

. .* 



*ENDFIL£. RAISE * 



* RAISE ERr6r * 
*************** 



SH20 

****H2*** ****** 
♦ERROR ON PILE, * 
* RAISE ERROR *<- 



•*************4 



YES .*IS THERE AN*. 

♦.ERROR ON THE .* 

*. FILE 7 .♦ 



• D« * 
*•** ^ 



ERROR 



***»**•*♦•******* 



****K1********* 
*ABNORMAL RETURN* 

* TO NEXT * 

♦ STATEMENT * 
•*»•*******•*** 



***************** 

I *♦♦♦ 
l_>^ * 

♦ DK • 

♦ * 
**♦♦ 



*****EII** *•*•***» 

* * 
♦ASSUME OUTPUT, * 

* SET PARAM IN • 

* SIOCB * 

* * 
***************** 



.* IS IT ♦. 
.♦ AN INPUT ♦. NC 
♦ . STATEMENT 7 .♦ — 



*****Hlt********** 



***********♦♦♦♦** 



*****G5*********^ 
♦IBMBSPLA * 
*-*-*-*-*-*-*-*-* 



***************** 



SI065 

*****Jlt ********** 
♦IBMBSPLC * 
*-*-*-*-*-*-*-*-* 

* PROCESS THE * 

* SKIP OPTION ♦ 

* ♦ 
***************** 



SI070 

*****Klt ********** 

* CLEAR 'BLANKS * 

* END RECORD' * 

* FLAG FOR GET *- 

* EDIT/DATA * 

* * 
***♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦****j5********** 
♦IBKBSPLB * 
*_*_♦_*_*_»_•-*_* 

* PROCESS THE * 

* LINE OPTION * 

* * 
***************** 



SI080 

****K5*******»* 
♦ RETURN TO * 
>* COMPILED CODE * 



*************** 
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IBMBSIOB 
A2 



IBMBSIOC 
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IBMBSIOD 

A4 



IBMBSIOE 
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HOUSEKEEPING 
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NO^^^ STREAM 
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CLEAR FLAGS IN 
SIOCB 



J2 -1 



SET A(FCB) & 
A(ONCA) IN SIOCB 



YES 
H3 
PAGE OPTION? 




SI060 




-c 



RAISE ERROR 

X 



F4 ± 

IBMBSPLA 



SKIP TO NEW PAGE 





J 




SKIP NO. OF LINES 
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■*r RETURN TO CALLER J*- 
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*I«riA[.ISE GET < 

• 3rRIN3 * 

* 4 

*************** 



♦INITIALISE POT * 

♦ STRING ♦ 

♦ * 
••****•****•*** 



*****B2********* 
•CLEAR FLAG3 AND 
* SET A(PCB) t 

A(ONCA) IN 
» SIOCB 
* 
**************** 



->• 



• •**AI|********* 
» ADDITIONAL * 

* HOUSEKEEPING * 

* « 

*************** 



«****ei)********** 

* * 

♦ADDRESS LOCATOR* 
♦FOR STRING FROM* 

* FCB ♦ 

* * 
***••*••*••«••••• 



*****P1********** 
♦SEP OUTPUT FLftG^ 

* IN fCP » SET ♦ 

* I3MBSIST CALL ♦< 

* FL,A3 J.^ SIOCB ♦ 
» * 
***************** 



*****3]^* ********* 



*****C 2*** ******* 

♦ CLEAR STRING ♦ 

♦ I/O AREA IN • 
♦SIOCB FOR DOMMX* 

* FC3 ♦ 

* * 
***************** 



*****2 2* **♦♦♦♦**♦ 

♦ * 

♦ SET UP ERROR ♦ 

♦ CODE AT START ♦ 

♦ OF FCB ♦ 

♦ * 
***************** 



*****£;2***^^^**** 

* * 
•SAVE ADDRESS OF^ 
♦STRIllG LOCATOR ♦ 

* IN FCB ♦ 

* * 
***************** 



V 
, * , 

F2 ♦. 
.♦ ♦ 

OUTPUT 7 

' ♦. . • 

♦ . .♦ 



. *. 

CH *. 



*****;} II********** 

* * 
♦CLEAR IBMBSIST * 
♦FLAG TO PREVENT^ 

* FURTHER CALLS ♦ 

* * 
***************** 



*•***£ 4********** 



***************** 



t*** ************* 



***************** 



*****, 42 ♦♦♦♦♦*♦♦♦♦ 

* * 

♦ SET LENGTH OF ♦ 
♦STRING IN FREM ♦ 

♦ IS FCB ♦ 

* * 
***************** 



SIOHO 

•****J2********** 

♦ SET FLNZ TO ♦ 

♦ FREM AND FCBA ♦ 

♦ TO ADDRESS OF ♦ 

♦ STRING ♦ 

♦ ♦ 
***************** 



****K2^ ♦♦♦♦♦♦♦♦ 

♦ RETURN TO ♦ 

♦ CALLER ♦ 

♦ * 
*************** 



SIOIO 

*****F3********** 
♦SET INPUT FLAG ♦ 

♦ IN FCB i SET ♦ 
>* IBKBSISl CALL * 

♦ FLAG IN SIOCE ♦ 
♦FOR VAR. STRING^ 
***************** 



****«Q3********** 

♦ MOVE DUMKY * 

♦ INPUT ♦ 
-♦TRANSMITTER TO ♦ 

♦ FCB i ADDRESS ♦ 

♦ IT ♦ 
***************** 



****fl|********* 

► RETURN TO < 

► CALLER * 

» 4 

*************** 



****BII^^******* 
► DUMMY INPUT < 

* TRANSMITTER < 

* * 
*************** 



*****jl|********** 



***************** 



• ***Kl|**^^^^^^^ 
» RETURN TO < 
» CALLER * 

• 4 

*************** 



SI220 H 

••***Q5* **•*•*•** 

♦FOR OUTPUT SET * 
*CURRINT LENGTH * 

* OF STRING TO * 

* LENGTH USED * 

* * 
***************** 



***************** 
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•*««]^t ********* 
» BNTRY FOR * 
• SCALAR ITEM * 



****A2* ******** 
*ENTRy FOR HBOLE* 
* ARRAY * 



••••*£2********** 



^*»008«.lPIgG . * 

*C0MVBR8I0N FLAG* 

• * 




.*• 
C2 *. 
.* *. 
.* *. YES 
•.ARRAY WTRY ?.* 

**. .*' 

*. .* 


SL700 

*****C3********** 

* SET OP ARRAY * 

>*INOIXING TABLE * 

* IM A VDA * 



*****ct********** 



* ADDRESS FIRST * 
>• ARRAY ELEMENT * 



***• 
♦01 ♦ 
• D2 •-> 



•*•• 
SL010 

*****D2********** 

• INITIALISE * 

• CONVSRSIOM • 

• RETRY • 

• PARAMETERS * 



J 



*••* 
*01 
* E3 



SL020 



» 

.♦. 

E2 *. 

.•END OF *. 
.* FILE OR *. YES 

*. STRING .* 

*. DETECTED .* 

*. 7 .* 

*. .* 

* MO 



n 



•••* 

SL620 

*****K3********« 
*XBMBBRRB 

•-*-*-•>*-•-•••• 



">* RAISE ENDFItE 
(ERROR FOR 
STRING) 



•RETOKM TO NEXT * 
->* STATEMENT * 



• RBTRT POINT * 



* SET EMIT * 
*FLAG IN SIOCB* 

* IF ERROR OM * 
• INPUT * 

• DETECTED 



* SET RETRY 
* FLAG C CLEAR 

* OTHERS 



•••••B1********** 

* RESET PSBODO • 
*BUrFER POINTERS* 

* FROM OHSOORCE *- 

* SID * 




J3 
.• *, 

.*C0NVER8I0M *. NO 
>*. RETRY 7 .* 



*8TEP PAST COMMA* 
->* IF ONE * 



.* SEMICOLON *. YES 

*. IN SCAM FOR .* 

*.GZT DATA .* 
*, ? .* 
*i t * 
* MO 



*****J5********** 
« • 

* RESET FCB * 
->*BOFFIR POINTERS* 

* FOR NEXT ITEM • 



I**** 
*0S * 
->* 12 



* SET OP SCORCX * 

* SLO FOR SERC * 

* LENGTH ARITB. * 

* SOURCE * 



• ••** 

* A2* 

• * 



••••• 
•03 * 
* J«* 

* * 
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»02 • 
***** i 



* KA«K FIRST 

* SCUPCi 

* CHARACIER 

* 



fiUCTE ? 



SI.0K5 

»****C2********** 
♦SL500 ♦ 

— >» ♦<-. 

♦ GET NEXT CHAR » 



***************** 



*** 
► C2 



D2 ♦. 

. *ENC OF « 
FILE/ 
STRING/ 
•ONSCURCE 
? .♦ 



SLtOO 

*****E3********** 

»KARK SOURCt AS * 

♦STRING t CLEAR * 

- — >* DOUBLE QUOTE * 

* COUNT * 

* * 
***************** 



SLU10 V 

**C3******* 
♦FLAG ERBCR • 
♦SITUATION FCB« 
— >♦ END OF FILE/ 

♦ SIRING/ « 

♦ CNSOURCE ♦ 

*********** 



*****[;3********** 
♦SL500 



*. 



♦ NO 



♦. YESV 
BLANK ? .♦ 



> SEMICOLON ♦. 
IN GET CATA . 
». SCAN 7 .♦ 



♦ H2 ♦-> 



**•* 
SL060 

tf**n2* ********* 

♦COMPUTE LENGTH ♦ 

♦ OF SOURCE FOR ♦ 

♦ CONVERSION ♦ 

♦ ROUTINE ♦ 

♦ • 
***************** 



J2 ♦. 
♦END OF ♦. 

FILE/ ♦. YES 

STRING/ .♦ I 

ONSCURCE .♦ 
♦. ? .♦ 


*, .« " 




NO »♦*♦♦ 
♦03 * 

♦ E2* 
* * 




* 



•-*-*-*• 



.*.*-*-♦ 



♦ GET NEXT CHAR ♦ 

* * 
***************** 



51020 
.*' 



♦. NO 
QUOTE ? .♦ 



♦♦F3^»^^*^^ 



*********** 



*****q3* ********* 



STEP DOUBLE 
QUOTE COUNT 



***************** 



•****H3 **«••***•* 
♦SL500 ♦ 

*-*-*-*-*.*-**.*.* 

* * 

* GET NEXT CHAR ♦ 

* * 
***************** 



V 
SL«30 .*. 

J3 ♦. 

. ♦ ♦. 
YES .♦ ANOTHER ♦. NO 
♦. QUOTE ? .♦ 



*****EU* ********* 

* * 
♦READJUST DOUBLE^ 

■>* QUOTE COUNT ( ♦ 

* SAVE VALUE ♦ 

* • 
***************** 



»0t**cn*** ******* 



♦KABK SOURCE AS ♦ 
♦ BIT STRING ♦ 



***************** 



*-*-*-*-*-*-*-*-♦ 

* * 

♦ GET NEXT CHAR ♦ 



***************** 



F« *. 

.♦END OF ♦. 

.♦ FILE/ < 

STRING/ 

♦.ONSOURCE ." 

♦. 7 .♦ 

♦. . ♦ 

♦ NC 



**«**K1*i****^^^^ 
♦SL500 ♦ 

*-*-*-*-*-*-*-*-* 

* *< 

* GET NEXT ChAR ♦ 

* * 
***************** 



**** 

* * 

* C2 ♦<- 

* * 
**** 



♦. YESV ♦ ♦ 

COKMA 7 .♦ >♦ H2 ♦ 

.♦ A ♦ ♦ 
**** 



.* SEMICOLON *. YES 

♦. IN GET CATA .♦ i 

*. SCAN 7 .♦ 



*****Klt********** 

♦ GET CNCHAR * 

♦ OFFSET '*1THIN ♦ 
-* ONSCURCE FCR ♦ 

♦ RAISING CONV ♦ 

♦ * 
***************** 



***** 

♦ 03 ♦ 

♦ A2^ 

* * 
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**** 

♦ 03 » 

♦ A2 •--1 

♦ * 1 



•• YES 
COMMA ? •• 



7 
. ♦. 

E2 •. 
. ♦ •. 

.♦ SEMICOLON •. NO 

► . IN GET DATA .» 

•. SCAN 7 .• 

•• . • 

♦. . ♦ 

YES 



SL090 



.>*STEP PAST COKKA* 

* * 

• * 
***************** 



SL100 C 

• ENSURE THAT • 
♦FINAL DELIKITER^ 

>^DOES NOT APPEARS 

♦ IN ONSOURCE ♦ 



S1110 



.♦CONVERSION ♦. YES 

RETRY ? .♦ 

♦. .♦ 



*****Q2*** ******* 

* RESET FCB • 
♦BUFFER POINTERS^ 

♦ FOR NEXT ITEM ♦ 



♦ ♦*♦ 

♦ 03 ♦ 

♦ E2 ♦-> 



♦ ♦♦♦ 
S1 120 

t**ttg2********** 
♦COMPUTE LENGTH ♦ 

♦ OF ONSOURCE t ♦ 

♦ SET LENGTH IN ♦ 

♦ SLD ♦ 



.♦ ANY VCA'S 
♦. ACQUIRED ? 



.♦ 



G2 



SI130 

♦♦♦♦*G3*^**^**^^^ 



.♦ROOM IN IST^. NO 

♦ .VOA FOR HHOIE> 

♦• ITEM 1 .♦ 
♦ . .♦ 
♦ . .♦ 
♦ YES 



^^»t*^2********** 

♦ ♦ 

♦ ADDRESS VDA t ♦ 
•SET TARSET FOR • 

♦ MOVE ♦ 



♦♦♦♦♦•♦«♦**♦♦•♦♦♦ 



♦MARX FIRST BYTE^ 

♦ OF VOA AS ♦ 

♦ ONSOUHCE • 

♦ ADDRESS * 

♦ ♦ 
♦♦♦♦♦♦♦♦♦♦•*♦♦♦♦♦ 



SllltO 9 

(♦♦♦♦J3^^*^^«**^ 



MOVE IN LESSER 
un»"s 



SL1S0 

••***K 3* **••••*•• 

♦ MOVE ANY ♦ 
♦REMAINING BYTES^ 

♦ IKTC VDA TO ♦- 

♦ COMPLETE ♦ 

♦ ONSOURCE ♦ 



♦ COMPLETE 
.>• ONSOURCE SLD 



G4 ♦. 
.♦ ♦. 

.♦ STRING < 

SOORCE ? 

♦. .< 

♦ . .♦ 

♦ . .♦ 

YES 



STEP SOURCE 
POINTER OVER 

INITIAL QUOTE 



♦ ♦♦♦ 
♦03 ♦ 

♦ J« ♦-> 



SET UP SOURCE 

FARMS. FOR 

CONVERSION 

ROUTINE 



L 



♦♦♦♦ 

♦ 0« • 
>♦ A2 
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, »CCriV£PSION 
RcTKy ? 



♦ SET UF 
•D-ftLlGNEC TEMP. 

♦ FOR ARITH. 
•TARGET IF NEC. 



» RAISING •• VES 






CONVERSION ? •• 1 




♦ , .♦ 




*. .• 




*. .» '' 




> NO •♦••t 






• 07 • 






• F5* 






* • 






* 




■' 




.* . 


SL210 .*. 


C2 •. 


D3 •. 


.♦ ♦ . 


. * •• 


•ARITHMETIC •• NO 


.* * 






• • .• 


♦. .♦ 


• . .• 


•• . • 


• . . • 


•. .• 




YES 


t 


> NO 




' 


, 


' 


,< 


>, 


. < 


». 



E2 



E3 



SL200 9 

>IBMBCCSA 

CONVERT 

ARITHMETIC TO 

STRING 



• *•• 

• 05 * 
• >• A2 



SI190 7 

•••**F2********* 
•IBHBCCAA 

• CONVERT 

• CHARACTER TO 

• ARITHMETIC 



•••• 
♦05 « 
• >• A2 



* RECUCE SOURCE 
->^L£NGTH EV » OF 

• OOUELE QUOTES 






• ••• 

► •' . 
» 03 • >•. 

> • 

• ••• 



CHARACTER *. NO 
TARGET 7 .* 



• lEMBCC— 

•• •.*-•.•.•-•. •. 

->• SELECT t CALL 

• CCNVERSION TC 

• STRING 



• ••• 

• 05 • 
■ >• 62 



••••H 3* •••••••• 

SL800 

IN-LINE 

CONVERSION TC 

CHARACTER 



• ••• 

» « 

► G3 « 

> 4 

• ••* 



GET A VDA FOR 

TEMP. BIT 

STRING 



••••G5^ •••••••*< 

IBKBCCBA < 

CONVERT « 
CHARACTER TO » 
BIT « 



*••• 
• 05 * 
• >• E2 



CCMFLEX 
TARGET 7 



•IBKECFE- * 

• SELECT i CALL < 

• BIT TC ASITri. » 

• CCNVERSION < 



• *••* 

• 05 • 

• A2» 
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• ••* 




•05 ♦ 


• A2 •— , 


• • 


•••* 


SI260 




• HCVE fHOM • 


•D-XLIGNED TEKP.» 


♦ TO TARGET AS • 


• NEC. • 


• • 


• *•* 




• 05 • 




• B2 •-> 




• • 




• ••• 




S1300 ♦ 



• INCREASE ITEK • 
•COUNT IN SIOCE • 

• ( COPY TO rcB • 



.• ♦. 

.•GET STRING •. NO 
». CALL REQD 7 .* 



•••••02*** ****** 

•IBKBSIST 

•-•-•-•-*-•••-•- 



AOJOST FLNZ t 

FRBN IF 

NECESSARY 



• ••• 

• 05 * 

• E2 



• ••• 
SI,310 

•IBKBERRB * 
•-•-•-•-•-•••-*-• 
•RAISE TRANSMIT • 

• IF XMIT FLAG • 

• SET IN SIOCB • 



SL320 



F2 •. 




.• •• 




• ENCFILE/ •. 


YES 


ERROR TO BE . 




•.RAISED 7 .• 




• . .• 




•. . • 


1 ' 


• NO 


• •••• 




• 01 • 




• E3« 




• • 




* 


. •. 


SL730 


G2 •. 


•••••G3*^^^^^**^* 


. • •. 


• • 


• •. 


YES • • 


ARRAY ENTRY 7. 


• >*FREE ANY VCA'S • 


• . •• 


• • 


•• I • 


• ♦ 



• •••*GI|^^**^^^** 



SI330 V 



NO .♦ •. 
•. A^Y lEFT 7 .< 



♦ YES 
I •••• 

• 01 • 
L_>» C2 • 
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• SOBBOOTIHE TO < 

• GBT NBXT CHAR * 



••••*B2********** 

* STEP SOURCE * 

* POZNTER t • 

* RECOCE BYTE * 

* COOMT BY ONE * 



V 

.♦. 

C2 ♦. 

*Aire BYTES* 

LEFT IN 
.RECORD 7 . 






•***C3********* 

• RETURN WITH 4 

■>* NEXT CHAR « 



.•CONVERSION 


*. 


YES 


RETRY ? 




•— . 




• 




*. .* 






*. .* 




• r 


' NO 




♦ 07 ♦ 



.« 


STRING 


*, 


YES 


, 


OPTION 7 






• 


*. .* 
*. .* 


,• 


' 1 




• NO 




• •••* 

• 07 • 

• E2» 

• • 



*♦. .•* 


NO 




•• .• 


' 1 




' YES 


• •••• 

• 07 • 

• B2^ 

• • 
• 




^G2 •. 
•AMY RECORDS*. 


NO 


SL510 

•••••G3******^«*^ 
•CONPOTB IBNGTB • 
♦ or 1ST VDA. • 



•. AIRBADY 
•.STACKED 7. 
*. .• 
*. .• 
YES 



• COMPOTE NEW • 
•TOTAL OF SOORCB* 

• CHARS • 



NEXT RECORD 



• .IN 1ST VDA 7 



GET A VDA 



• SET FORWARD • 

• CHAIN IN • 
•PREVIOUS VDA OR^ 

• SAVE AODR. IF • 

• 1ST VDA • 



• ADDRESS VDA t • 

• INCREMENT • 

• tENGTH USED * 



* STORE ADDRESS 

* or LATEST VDA 
•AND SET LENGTH 

* USED 



• •••• 
•07 • 

• A2^ 

• * 



• •••• 

• 07 • 

• A2^ 

• • 
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• *•• 
•07 • 

• A2 •— , 

• • 

• ••• 
SLSItO i 


' 


• • 

• HOVE FROM • 
•CURRENT RECORD • 

• INTO VDA • 

• • 


• ••• 

• 07 • 

• B2 •-> 

• * 

• ••• 
SLSSO ' 

*****B2* ****•*•** 
•TRANSMITTER • 


• GET A NBN • 

• RECORD • 

• * 



• SET XMIT ♦ 
•FLAG IN SIOCB^ 

* IF ERROR ON « 
• INPUT • 

• DETECTED • 



.*EMD OF FILE*. 

>. DETECTED ? . 

*. .* 

♦ . .* 



****D3********* 
* RITORN MITB < 
> NEXT CHAR * 



• ••* 
•07 • 

• B2 ♦-> 



••** 
31570 

•*E2******* 

* * 

•SET EOF FLAG • 

•FOR SET STRING * 



•••• 
•07 • 
• F2 •-> 



• ••• 

• 07 ♦ 

• F5 •— 1 

• ••* K 
600 V 



•SET EOF ITEM • 
•DELIMITER FLAG * 



•COMPOTB OMCBAR 

* ADDRESS FROM 

* OFISBT HITHIM 

* CMSOQRCB 



.* WITHIH •. YES .*CONVEItSION *. YES 
• .STRING SCAN 7.»"— ~— >•• RETRY ? .♦ — ~- 
♦. .♦ ♦. .* 

♦. .• •• •• 

•• •• ♦. .• 

• NO 



•SET DP OMSOORCC* 
— >• SLO I COMPOTE •• 
•OMCBAR ADDRESS • 



St610 " 

•••••C5«***#**«* 



•COMPLRB OMCBAR 
•>• 810 



••••H1***^*^^^* 
•RETURN WITH END^ 
# OF FIELD •< 
• FLAGGED • 



MO .• ANY CBARS 
•• FOUND ? 

*. .• 
• . .* 
• YES 



SL660 

••••B3********* 

• * 

• RAISE ERROR * 

• « 

•••*«*•*••••••• 



•IBMBSCVA 



OMVlRsfc 



L 



♦ 05 • 
>♦ E2 



SET UP SOURCE • 
SLD FOR ZERO • 
LENGTH ARITH. *<- 
SOURCE • 



YES .•COMVBRSIOH *. 

. ♦. RITRY ? .♦ 

• • .* 



• 03 • 
->• J* • 

* • 

♦ ••• 

• • 

* SET FLAG TO * 
•RAISE ENDFILE/ *<- 

• ERROR LATER • 



X2 ♦. 
.* *. 
NO .♦ ♦. 

•• GET DATA 7 .* 

*. .♦ 
♦ . .♦ 
• • .• 
• YES 



• •♦•* 

• 05 • 

• E2* 

• • 



• •••• 
•05 • 

• E2* 



Chart DSLI. List-directed Input (part 7 of 8) 



Licensed Material - Property of IBM 



Part 2 : Flowcharts 



329 



►iUBRCUTINE FOR 
• IN-LINt CCNV. 
» TC CHAPACTiH 



iitl SOLHCE 

tCINTEi- fCf 

COUfiLE QUOTt 



♦ • 

• SEDUCE SOURCE * 
♦LENGTH BY « OF • 

* DOUBLE CJUOTES * 



r— >•- tUCTE 7 



> CALC. LENCTH 
•FCH ^CVE UF IC 

> ( INC. Fln^T 
» CLiCIE 



• ***•(; 2********** 

• GET TARGET • 
♦ALLOC. LENGTH *♦ 
♦CALC. ANY FILL ♦ 

♦ BEQD. ♦ 

* * 
♦♦♦••**♦♦♦••*•♦•* 



>KCVE SECTICN Cf< 
• SOURCE TO < 
> TARGET < 



D2 ♦. 
.♦SOURCE ♦. 

.♦ LENGTH > ♦. 
♦.TARGET LENGTH. 



STEP SOURCE 

FCINTER OVER 

2NE CUOTE ? 



-*.».*-•-*• 



• ••••^■(♦♦♦♦♦♦♦♦♦^ 

• * 

♦ CALC. LENGTH ♦ 
♦FOR FINAL KOVE ♦ 

♦ INTO TARGET ♦ 



• ♦ 
♦TRUNCATE SOURCE^ 

♦ LENGTH TO ♦ 

* TARGET LENGTH ♦ 



.♦ VARYING ♦. NC 
♦ .TARGET STRING. ♦ •, 



*»*»»^2*** ******* 
♦SET UP CURRENT ♦ 

♦ LENGTH SLOT t ♦ 

♦ INDICATE ZERO ♦ 

♦ FILL ♦ 



.♦ANY DOUBLE 

SUCTES IN 
CUSCE ? . 



FINAL MOVE OF 

SOURCE TC 

TARGET 



.♦ ANY FILL ♦. NC 
r — >♦. BECD.7 .♦ , 

*■•• •*■* 1 
♦. .♦ V 



***** 

♦ 05 ♦ 

♦ E2^ 

♦ • 



*♦•* 
♦ 05 « 
->♦ B2 
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IBMBSUA 

••••Al* ••***••* 

• ENTRY rOR « 

• SCALAR ITEM « 



IBNBSLJB 

•ENTRY FOR WHOLE* 
♦ ARRAY * 



••••*B2**^******* 

* * 
•HOUSEKEEPING t • 

>• SET I/O • 
•CONVERSION FLAG* 

* * 
•*••*••••*•*••••* 



*****CI|* ********* 



•.ARRAY EtTTRY ?.• 


•. . • 


•. .• 


•. . • 


>.W 


• **• 




♦ 01 • 




• D2 •-> 




* • 


< 


**•* 




SLOIO ) 




• INITIALISE • 


• CONVERSION • 


• RETRY • 


* PARAMETERS • 


* • 



• SET OP ARRAY 
->^IND£XING TABLE 

• IN A VDA 



.♦END OF ♦. 
.♦ FILE OR ♦. YES 

STRING . • 

••DETECTED .• 



• ••* 
•01 • 

• E3 ♦—1 

• ••• I 
SL620 V 

•IBMBERRB * 
•-•-•-♦-*.*-*-♦.* 
>» RAISE ENDFILE •- 

• (ERROR FOR * 

• STRING) * 



• *•*£)>•*•**•••• 
•RETURN TO NEXT • 
>• STATEMENT ♦ 



* Ran POINT ♦ 



> SET RETRY 

rUW: & CLEAR 
• OTHZIIS 



♦ SET XMIT * 
•FLAG IN SIOCB^ 

» IF ERROR ON « 
• INPUT ♦ 

• DETECTED • 



• RESIT P8EUD0 ♦ 
•BUrn» POINTERS* 

• FROM OMSOURCB •- 

• aia • 



•••••G3^^******** 
•SlSbO • 

•-*.*-•-•-*.*-•-• 
>» • 

♦ GET A RECORD • 



* RESET FC3 • 
->^EUFFER POINTERS* 

♦ FCR NEXT ITEM • 



**•• 

l->*05 ♦ 
• 62 



K2 *• 
.* *. 

SEMICOLON * 

IN SCAN FOR 

.GET DATA .* 

*. 7 .* 

*. .* 

*N0 

*•••* 

• 02 • 

* A2* 

• • 


YES 

* 


* SET UP SOURCE • 

* SLD FOR lERO * 

* LENGTH ARITH. • 

* SOURCE • 

* * 






***** 
*03 * 
* J<t* 

• • 
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***** 

• 02 • 

• A2* 

* * 



*****A2********** 

* 4 

• MARK FIRST « 

♦ SOURCE « 

• CHARACTER « 

* t 
**•*•*•******•••• 



••HI******* 

* FLAG * 

•RSTRCTD CONV • 

*IF BIMAIX CONST*<- 

* IN SOURCE * 



SLOHO 



Jl 



.•END OF *. 
«ES .• PIU/ •. 

• . STRING/ . •<- 

•.OMSOURCE .* 
•• 7 .• 
••••* *. ,* 

•03 • •NO 

• E2^ I 

• • I 



* * 

BUMK 7 



B2 ». 

* « 

QUOTE 7 



**•* 

* * 

* C2 * 

* *_> 
• **• 

SL0H5 V 

*****C2********** 
•SL500 • 

♦_*_«_*_»_»_•_*_« 

— >* « 

* GET NEXT CHAR » 

* « 
**«♦****«******«* 



.•END OF * 

• FILS/ 
STRING/ 

• .ONSOURCE 



. • SEf«lCOLON •. 
. IN GET DATA .« 
•. SCAN 7 .* 



• •-> 

*•** 
SL060 

*****H2**^***^^^^ 
•COHPOTE LENGTH • 

• OF SOURCE FOR • 
• CONVERSION ♦ 

• ROUTINE • 



SI,400 

•**«*B3 ********** 
•HARK SOURCE AS • 
•STRING ( CLEAR • 

>• DOUBLE QUOTE • 

♦ COURT • 



smio V 

**C3*****^^ 

•FLAG ERROR • 

•SITUATION FOH^ 

— >• END OF FILE/ * 

• STRING/ ♦ 

♦ ONSOURCE • 

**•******•• 



.*.*-*-*_*-*.*_* 



GET NEXT CHAR 



QUOTE 7 



*********** 



*****a3 ******••** 



STEP DOUBLE 
CUOTE COUNT 



.*-*.*.•-•-* 



• GET NEXT CHAR • 



SL4 30 

yss .• 



*****BII* ********* 

* • 
•READJUST DOUBLE* 

->• QUOTE COUNT t • 

• SAVE VALUE • 



***************** 



*-•-*-*-*-*-•-*. 



• GET NEXT CHAR 



F« •. 

.•END OF *. 
.• FILE/ •. YES 

STRING/ .• 1 

•.ONSOURCE .* 1 

'«, .♦* •••• 
•NO • • 
• H2 ♦ 



***• 



G« *. 
.* *. 
.• •. YES 

*. BLANK 7 .* . 

• . .• 1 
•. .• V 
•. ,* ••*• 
•NO • • 
• H2 • 



••*• 





• 


YES 


COMMA 7 




•-J 


.• 


• 


•• «* 




• ••• 


• NO 




* * 

* H2 • 

* * 



J« •. 

.* *. 

.* SEMICOLON *. YES 
. IN GET DATA .*— i 
•• SCAN 7 .♦ 1 
•. .* » 

*. ,• **•* 
♦NO • • 
• H2 • 



***• 



• GET NEXT CHAR • 



• GET ONCHAR • 

• OFFSET WITHIN • 

* OMSOURCE FOR * 

* RAISING CONV • 



••••* 
•03 • 
* A2* 

♦ • 



I**** 
->• • 

• C2 • 
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» SEMICOLON ♦ 

IN GET DATA 
>. SCAN ? .» 



->«STEP PAST COMMA* 

* * 

•***••*********•* 



SLIOO 

•****B3********** 

• ENSURE THAT * 
♦FINAL DELIMITER* 

>«DCES NOT APPEAR* 

• IN ONSOURCE ♦ 



**************** 



***>*D;^********* 
* 

♦ RESET FCE 
*BUPFER POINTERS 

♦ FOR NEXT ITEM 
* 
**************** 



* E2 •-> 



**•* 
SH20 

*****£ '2 ********** 

*COMPUTE LENGTH • 

• OF ONSOURCE i * 

• SET LENGTH IN ♦ 

• SLO • 

• * 
***************** 



.*R0OM 1.1 1ST*. NO 

*.VDA FOR WHOLE.* 

*. ITEM 7 .* 



*****H2********** 

* * 

* ADDRESS VDA ( * 
•SET TARGET FOR ♦ 

♦ MOVE • 

♦ ♦ 
***************** 



♦♦♦•♦*♦**♦♦**♦*♦♦ 



***H3********* 

MARK FIRST BYTE 

OF VDA AS 

ONSOURCE 

ADDRESS 

************* 



****•»•*******•*• 



SH50 

*****K3 ********* 

• MOVE ANY 
*REMAINING BYTES 

• INTO VDA TO 

• COMPLETE 

• ONSOURCE 



***************i 



*****Hit ********** 



STEP SOURCE ♦ 
POINTER OVER • 
INITIAL CUOTE * 




*** 
03 ♦ 
JU *-> 

* 


< J 




*** 

i 
****jii* 

SET UP 

PARMS 

CCNVE 

ROU' 


1******** 
SOURCE * 
FOR • 
'SION • 
riNE * 






**** 
l_>*0» • 
♦ A2 ♦ 
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* SET UP ♦ 
*D-ALIGNED TEMP.* 

>• FOR ARITH. • 

♦TARGET IF REC. • 

* « 

*******«*4******* 



.♦RAISING*. 
.♦RESTRICTED ♦. 
.CONVERSION ? . 



D3 ♦. 
. ♦ * 
. * 
. BIT SOURCE 



:.-^-i 



SU90 

*t*»tP2* ********* 
♦IBMBCCAA ♦ 

• CONVERT ♦ 

♦ CHARACTER TO » 

* ARITHHEIIC * 



♦ REDUCE SOURCE 
->*LENGTH BY « OF 

♦ DOOBIE QUOTES 



♦.BIT TARGET ? 



♦YES ♦OS ♦ 
I **•♦ ♦ A2* 

l_>»07 ♦ • • 
♦ H« ♦ ♦ 



♦ SELECT ( CALL ♦ 

♦ CONVERSION TO ♦ 

♦ STRING ♦ 
**•♦*••****♦•***♦ 



.•.*-•.*_♦-* 



» IN-LINE ♦ 

• CONVERSION TO ♦ 
► CHARACTER ♦ 
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SL260 1 


i 


***m*f^2* ********* 


* MOVE FROM * 


•D-ALIGNED TEMP.* 


* TO TARGET AS • 


* NEC. ♦ 


* ♦ 




[ 




»0b ♦ 




» B2 «-> 




* * 




**** 




SL300 V 


*****B2********** 


* * 


* INCREASE ITEM * 


♦COUNT IN SIOCB ♦ 


* t COPK 


TO FCB » 



*•*•**•«*•••*•*•* 



ADJUST FLNZ (, 
FREM IF 
NECESSARY 
************ 



SL310 

•***E2********** 
♦IBHBERRB • 
*_•-*-•-•-*.•-*-* 
•RAISE TRANSMIT * 

• IF XMIT FLAG • 

* SET IN SIOCB * 
***************** 



. * ENDFILE/ *. YES 

. ERROR TO BE .* ■■ 

*. RAISED 7 .* 1 



k*********4 



*****Gtt********* 



»**H2********* 



*YES 

I **** 

l_>*01 * 

♦ D2 * 



****J2********* 
• RETURN TO « 
► CAILER « 
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SL500 

♦ SUBROUTINE TO 

* GET NEXT CHAR 

*************** 



*****^2*** ******* 

* ST£P SOURCE • 

* POINTER i * 

* REDUCE BYTE » 

* COUNT BY ONE ♦ 

* * 
***************** 



ANY BYTES 

LEFT IN 

. RECORD ? . 



»**C3*»******* 
RETURN WITH • 
NEXT CHAR • 

************** 



•r 


'ONVERSION 


* 


YES 




RETRY ? 




-1 


* 


*. . * 


.* 




* . . * 




***** 




• NC 
1 




*07 * 

* F2* 



. *ANY RECORDS* 

ALREADY 

♦ .STACKED ?.* 



SLblO 

*****Q3***«*****4 

♦COMPUTE LENGTH • 
, NO ♦OF 1ST VDA, * 
,» >» ALLOWING FOR * 

• NEXT RECORD » 

* * 
***************** 



*****!{2 **•**•***• 

* * 

* COMPUTE NEW ♦ 
♦TOTAL OF SOURCE ♦ 

♦ CHARS ♦ 

♦ ♦ 
***************** 



i**^Hi^^*^^^^^* 
GET A VDA 

>**♦♦♦»♦♦♦♦♦♦*♦ 



• •***K'^ ********** 

* * 

♦ ADDRESS VDA ( ♦ 

♦ INCREMiNT ♦ 

♦ LENGTH USED ♦ 

* • 
*•***•***•»•***•• 



• II il*****^^** 



I************** 



*****JU****^^^^^^ 

♦ SET fORWAPD * 

♦ CHAIN IN ♦ 
♦PREVIOUS VIA OR^ 

♦ SAVE ADDR. IF ♦ 

♦ 1ST VCA ♦ 
»♦♦♦♦♦♦♦♦♦♦♦♦*♦♦♦ 



SL530 

***^^KI4*********^ 

♦ STORE ADCRFSS ♦ 

♦ OF LATEST VDA ♦ 
♦AND SET LENGTH • 

♦ USED ♦ 

♦•******♦♦♦♦♦**♦♦ 



*♦*** 
*07 ♦ 
• A2* 



Chart DSLJ. List-directed Input, restricted conversions (part 6 of 8) 



336 Licensed Material - Property of IBM 



***** 
*07 * 
• A2* 



*****;^-j********4 

* 

* MOVE FROM 

•CURRENT RECORD 

» INTO VDA 

***********«***< 



SL550 

*****B2******* 

•TRANSMITTER 

*_»_•_*_*_•_•_ 

• GET A NEW 

♦ RECCHC 



**************** 



**C ;>***«••* 

♦ SET XMIT • 
•FLAG IN SIOCB* 

> IF ERROR ON 
* lUPUl • 

• DETECTED • 



**** I 

• 07 • 

• E2 •-> 



k*************« 



••♦•HI ♦•♦•••♦•• 
•KETUBN WITH END* 

• OF FIELD • 

• FLAGGED • 



***«*jl**«******* 

• SET OP SOURCE • 

• SLD FOR ZERO * 

• LENGTH AHITH. *< 

• SOURCE * 

• * 
*••*••««•*••**•*« 



•*K1******* 

* « 

• SET FLAG TO • 
•RAISE EHDPILE/ 

• ERROR LATER • 

* • 



**** 

♦ 07 * 

* F^ •-> 



♦ 07 ♦ 

••** I 

JOO V 



*COfPUTE ONCHAR 

• ADDRESS FROM 

• OFFSET WITHIW 

• CNSOURCE 
* 
**************** 



GJ •, *****Gl|********** 

. • • . • • 

.•CONVERSION •. VES •SET UP ONSOURCE^ 

->•. RETRY ? .• >• SLD t COMPUTE •- 

•. .* •ONCHAR ADDRESS * 

* . . • • • 

•, ,* *»****••**•****** 



»*«;J3******** 

RAISE ERROR 



• SET lip CNCHAP 

• FOB PSTBCTD 

• CCriVEBSION 

•*•»**••**•**••* 



**••*♦*•******** 



SL615 

***«*HS*^^^^^^^^ 
•IBfBSCVA 
*-*-*-*.*.*.*-*. 
— >* ^PilSE 

» CONVEBSIO:) 



***•**•*•*««**•« 

1**** 
->^05 • 
• E2 



♦ 05 ♦ 

♦ t.2* 
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SL800 

****A2********* 
♦SUBROUTINE FOR * 

* IN-LINE CONV. * 

* to CHARACTER « 



At ♦ 

**«* 1 
V 



SL830 

t****AI|«********« 

* SET SOURCE * 

• POINTER FOR * 

♦ DOUBLE QUOTE « 
» SCAN « 

* * 
***************** 



*****B'2 ********** 

* ♦ 

* REDUCE SOURCE » 
*LENGTH BY tl OF * 

* DOUBLE QUOTES ♦ 

* * 
******•****«*•••* 



* CALC. LENGTH * 
*FOt< MOVE UP TO * 

>* i INC. FIRST * 

* QUOTE • 

* * 
***************** 



*****C2********* 
* GET TARGET 
* ALLOC . LENGTH 6 
*CALC. ANY FILL 
» REQD . 



**•**•• 



»******4 



>****CI4**** ****** 



***************** 



*«***C 5* ♦*♦*•**♦» 

•yOVE SECTION CF» 
» SOURCE TO « 

• TARGET • 

***************** 



.•SOURCE *. 
. * LENGTH > *. NO 
.TARGET LENGTH.* 



• ***D'j****»**** 

STEP SOURCE 

POINTER OVER 

^ND QUOTE ? 

•***•*•***••*•• 



*****t,lt** ******** 

* * 

* CALC. LENGTH • 
*FOR FINAL MOVE ♦ 

* INTO TARGET * 

*♦**»»•**«♦»•*•♦♦ 



* ♦*»*f:^********«* 

* * 

*TRUNCATE SOURCE* 

* LENGTH TO * 

* TARGET LENGTH * 



».ZERC LENGTH 7.* — > 



**«»«H2********< 
*StT UP CURRENT 

• LENGTH .SLOT i 

♦ INDICATE ZERO 

* FILL 
• 
»**************i 



**** 
SL850 V 

*****QH* ********* 

* FINAL MOVE OF * 

* SOURCE TO * 

* TARGET * 



.* ANY FILL *. NO 


— >». REQD. 7 .* 1 


*, ,* ***** 


•YES *05 • 




* 82* 



•MOVE IN BLANKS 
« AS REQD. 



**************** 



L**«* 
->*0S * 
• B2 * 



.•ANY DOUBLE *. NO 

OURCE ? .• 1 
♦. •• V 

*, ,* **** 
• YES • • 

I***** GO * 
->* * • 
* AM •*•♦♦ 
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IBMBSLOA 

* ENTRY FOR • 

* SCALAR ITEM « 



IBMBSLOB 

****f^2*** ****** 
♦ENTRY FOR WHOLE* 

♦ ARRAY * 

* * 



*****G2*** ******* 

* • 

->* HOUSEKEEPING * 

• * 

***************** 



*. . * 

♦ NO 

• »** 
*01 * 

• D2 *-> 



* SET UP ARRAY 
->*INDEXING TABLE 

* IN A VDA 

**************** 



****•(;((*******•** 



****•****•****•*• 



E2 *. 

.*P.C.D. ♦. 

.*WITH NORMAL*. 

*.SYMTAB IN POT. 

♦. DATA 7 .* 



.STRING DATA 7.*- 



* GET LENGTH OF * 
>♦ SUBSCRIPT *- 

* STRING IF ANY * 



SL290 

♦ GET LENGTH OP ♦ 

* STRING t SET * 
>* TABBING WIDTH « 



TO 

* « 

***************** 



•****Q3** **••**** 



SL020 

*****II2 ********** 
* CALCULATE WIDTH* 
*FROM PRECISION * 

* AND SCALE *- 

* FACTOR * 

* * 
***************** 



SL060 

***«*|]3** *•**•••• 
* IF COMPLEX ♦ 
♦DOUBLE WIDTH t ♦ 

>♦ ALLOW FOR 'I' ♦ 

♦IF NOT PICTURED^ 



***************** 



SLU03 

***«*ES* ********* 
*ADD LENGTHS OF * 

* NAME S * 
>*SUESCRIPTS FOR * 

* TABBING WIDTH ♦ 



***************** 



***** 

♦ 02 * 

* A3* 



*****G <«********' 
* 

* ALLOW FOR 
*Q0OTES ( 'B* II 

* BIT SOURCE 



SLUOO 

• ****KI|********** 

♦ ADD LENGTH OF * 
. YES * NAME ETC. TO ♦ 
.* >*FIND TOTAL ITEM*- 

* WIDTH FOR * 

* TABBING * 
*•**•*•*•*•****** 



K5 *. 

.* * 
,* 
->*. PRINT FILE 



***** 
*02 * 

* D5* 



***** 
*02 * 
♦ B3* 
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»*♦♦• 
♦02 ♦ 
♦ A3* 

* * 

i 

31,080 . » . 

A3 ♦. 
. * ♦. 

.* •. NC 

*. PRINT PILE ? .♦ 1 

*. .* I 

*. . * V 

♦, ,♦ ♦♦♦♦ 

*YES * ♦ 

♦♦** I * E3 * 

♦02 ♦ ♦ ♦ 

♦ B3 ♦-> ♦♦♦♦ 

♦ ♦ |< . 

♦ ♦♦♦ i} 

SL090 .♦. SLllO 

B3 ♦, ♦♦♦♦♦Blt^*^^*+^*»* 

.♦ ♦. ♦TRANSMITTER • 

.♦ AVAILABLE ♦. NO ♦_♦_♦_♦_♦_♦_♦_♦_* 

♦. TAB ? .♦ >♦ MOVE TO NEXT * 

♦. .♦ * LINE * 

♦. . ♦ ♦ ♦ 

♦, ,♦ ♦♦♦♦***♦♦**♦♦♦♦♦♦ 
♦YES 



♦BLANK UP TO TAB^ 

♦ ♦ 

♦ ♦ 

**:»**♦***♦*♦*♦*♦♦ 













♦ ♦♦* 












♦ 02 ♦ 












♦ D5 ♦--! 














V 








♦ ♦♦. 1 


no .♦. 






SLUIO 


SLI420 V 


D3 ♦ 






**Dli******* 


♦♦♦♦♦D5 ♦♦♦♦♦♦♦♦♦♦ 




♦ , 




♦SET FLAG T0+ 


♦ ♦ 


. ♦ DATA 


♦ 


YES 


♦ ALLOW ♦ 


♦ SET NAME FARMS. ♦ 


♦. DIRECTED 
♦ . 








>♦ S NAME SWITCH ♦ 

♦ ♦ 


. ♦ 




♦• = • IF ARITH> 


♦ , 


♦ 




♦ ITEM ♦ 


♦ ♦ 


♦. .♦ 






♦*♦♦♦♦**♦♦♦ 




♦ NO 








1 


♦ ♦♦♦ 








♦ ♦♦♦ 


♦02 ♦ 








'■->^03 ♦ 


♦ E3 ♦-> 








♦ Al ♦ 


♦ ♦ 








♦ ♦ 


♦ ♦♦♦ 








♦ ♦♦♦ 


50 .« 










SL330 .♦. 



♦ E3 ♦ 

♦ ♦ 
♦ ♦♦* 



> ROOM IN 

BUFFER FOR 
► . ITEM ? . 



♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



**H2*****»* 



♦♦♦♦♦♦♦»♦♦♦ 



♦♦J2+^^**^^ 



♦♦♦♦♦♦♦♦♦♦♦ 



♦ ♦♦• 

♦ 02 ♦ 

♦ K2 ♦-> 



♦ ♦♦♦ 
SL195 



•PUT OUT A OOOTE 

* 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦•♦ 



♦ ♦*•* 

♦ 03 ♦ 

♦ Al^ 



.BIT SOURCE ? 



♦♦♦♦♦J3^^ ♦♦♦♦♦♦♦♦ 
♦IBMBCBCA ♦ 

-♦CONVERT ilT T0~^ 

♦ CHARACTER ♦ 

♦ ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦ ♦♦♦♦{^'(♦♦♦♦♦♦♦♦i 
♦ 

♦ MOVE C.A.D. 
>♦ SOURCE TO 

♦D-ALIGNED TEMP 



♦♦♦♦♦J4^ ♦♦♦♦♦♦♦♦♦ 
♦IBMBCACA ♦ 

♦ -♦-♦- ♦- ♦-♦-♦-♦-♦ 

♦ CONVERT ♦ 

♦ ARITHMETIC TO ♦ 

♦ CHARACTER ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦PUT OUT A LINE 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



SL3lt0 

♦♦♦♦♦j5^^^^^^^^^^ 

♦ SET UP FARMS. ♦ 

♦ TO CONVERT ♦ 
I ♦ DIRECTLY INTO ♦ 

♦ BUFFER ♦ 

♦ ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦. VDA USED ? 



♦ . . ♦ 


♦ ♦♦♦♦ 


♦YES 


♦ 03 ♦ 


1 


♦ H2^ 


1 


♦ ♦ 


i; 


♦ 


♦♦♦♦♦ 




♦03 ♦ 




♦ Al^ 
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• **•* 
»03 « 

• Al» 



* SCAN TO FIRST ♦ 
->»QUOTE OR END 0F»- 

* STRING ♦ 

* * 



**A3******* 

♦ ONSET • 
* EXPANDING ♦ 

->• QUOTES SWITCH * 
♦If NONE FOUND* 

* * 
*********** 



«****C1**«******* 
» ♦ 

•MOVE STRING TO ♦ 

* BUFFER AND ♦ 
•UPDATE POINTERS* 

• • 
**•*••••••******* 



♦ KOVE CHUNK TO 
>* FINISH OFF 

* BUFFER 

***************4 



-*-*-*.* 



**************** 
I **** 



****G1********* 
PUT OUT A QUOTE 
**•••*••**•*•** 



**••••*****•••••* 



***• 

*03 * 

* H2 *-> 



***• 
SL230 

**«**D2********** 

* PUT OUT FINAL * 

* BLANK ( * 
>* INCREASE ITEM *< 

» COUNT * 



•***•*****••*•••* 



YES .*PUT DAtA - *. 

*. SPECIAL CASE . 

*. ? .* 



****G3********** 

SET SUBSCRIPT * 

FARMS . i * 

SUBSCRIPT * 

SWITCH * 

* 

*«****•*****•*•* 



**«**P5***«***** 
* 
* 
— >* PUT OUT •=• 

* 

**************** 

I «*** 
<~>*02 ♦ 
» E3 • 



*****J5*** ******* 



*****K2*** ******* 
*IBMBSIST * 

*-*-*-*-•-*_*-*_* 
•UPDATE CURRENT *- 

• LENGTH OR PAD ♦ 

* WITH BLANKS * 
**•**••**•******* 



***************** 



*•*•*******•***•* 



SL2'»7 

****K3********* 

• RETURN TO * 
» CALLER » 

* * 
•***********«•* 



-*. ANY LEFT 7 
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****A3** ******* 
• IBMBSHNA 4 

*•***•*****•*** 



*****B3 ********** 



***•*******••••** 



B- FORMAT .*. 


SMOIO .*. 


DZ ♦. 


D3 *. 


.* ♦ . 


.* ♦ 


YES .* FLOAT ♦. 


YES .♦ 


*. SOURCE ? .*<-- 


». B- FORMAT ? 



****g:^********* 

precision 
multiplied by 

3.3:^ t CEIL 
*******•****••• 



CHECK LENGTH < 
31 IF NOT: 
LENGTH=31 

*•*•**•••***•** 



NO . * COMPLEX 


* 


. •.^ CODE 7 




* 


**** *. .* 




• » ♦YES 




* H3 * 






* * 






*•*• 







***• 

* * 
» J3 ♦ 

* • 
*•** 



••**DU* ********* 



***************** 



* J3 * 

* * 

**** 



*****G3********* 

* 

*DCUELE WIDTH i 

•ALLOW FOB I NOT 

• PICTURED 

**************** 



I ♦ 

» H3 *•*•♦ 

* * * 

* •-> 

• *** 
SMI 30 

*****J3********< 



•******•****•*•• 



•***K3********* 
• RETURN 



• ***Fit *••***••*• 

« 

DIVIDE * 

PRECISION BY » 

3.32 AND CEIL ♦ 

**************** 



*****J<|********** 

* * 

* DIVIDE • 
♦PRECISION*! BY ♦ 

* 3.32 AND CEIL ♦ 
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•P-ARITH FORMAT * 
• INPUT • 



*****B2* ********* 



•**•**•****••***« 



IBMBSPIR V 

••••*C2*** ******* 
•IBMBCGPA * 

* CHECK SOURCE * 
•ACAINST PICTURE* 



*SBT UP LOCATOR * 
•FOR SOURCE AND *<- 
* TARGET • 



SPO«0 
YES 



-*. CHAR TARGET .*- 



*IBMBCCCA * 

•MOVE SOURCE TO * 
♦ TARGET ♦ 



SP070 

*IBMBCMPB * 

• »< 

•CONVERT TO BIT * 



r» *. 

.* *. 

• 

BIT TARGET 
*. 

*. .* 
•• >* 
* NO 



••**J2*^****^** 
• RETURN TO « 
> CALLER < 



•IBMBC6EA 
•-•-•-•-•-•-•-• 
•SERO INAGIMARV 
• PART 

• 


»• 
»• 
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> PAGE 

*********** 



****A3*»»»**»** 

t * 

' SKIP < 

t * 

*************** 



» RAISE ERROR 



r****Q2* ********* 

* * 

♦ADDRESS CORRECT* 
->♦ FORMAT DED FOR *<- 

* LINE OR SKIP * 

* * 
«»♦♦**»*♦♦*♦♦»*♦» 



*************** 



RAISE ERROR ♦<- 
************** 



*****P2 ********* 



**************** 



SP020 

*****Q2*** ****** 

♦TRANSMITTER 

♦_♦_♦_♦_♦_♦_»_♦_ 



* SKIP A RECORD 



SP220 

***»*H1 *♦***♦*♦♦♦ 
♦IBMBiRRB » 



♦ RAISE ENDFILE * 
•♦♦♦♦♦♦♦♦♦♦♦»♦♦♦ 



♦»»»J1»******** 

♦ RETURN TO NEXT < 

♦ STATEMENT » 

♦ 4 
♦♦»*•»♦•♦♦*♦»♦♦ 



♦< ♦.END OF PILE 



PAGE .♦ WHICH ♦. SKIP 

-♦. OPTION OR .♦ 

♦.FORMAT ? .♦ 



****p-^*********i 



**************** 



.♦INITIAL^. 
.♦ OUTPUT ON ♦. NO 
->♦. PRINT FILE " 



'.'•■•-J 



♦ H3 ♦ 

♦ ♦' 



(♦**F<4*^^+^^^^^ 



**************** 



.♦ALR 

.♦ ON C< 

♦.OF LIN 

* *, 


:ady^. 

3L. 1 ♦ 
: REQD. 
? .♦ 
. ♦ 
,♦ 
► NO 

< 


YES 

♦ ♦♦♦* 

♦ 02 ♦ 

♦ J3* 

♦ ♦ 
♦ 


. ♦ ♦ . 

.♦ DOES THIS ♦ 

♦.MAKE IT ZERO 

♦. ? .♦ 

♦ . .♦ 

'♦NO 


YES 

■•-J 

♦ ♦♦♦♦ 
♦02 ♦ 

♦ J3^ 




• 



♦ CLEAR LINE • 
r — >♦ NUMBER IN FCB ♦ 
I ♦TO STOP ENDPAGE^ 

♦♦♦*♦**•♦♦*♦♦**♦♦*•** 



.*-♦-♦-♦-♦-• 



♦ YES 
I ♦♦♦♦ 
l->^02 ♦ 
♦ J3 ♦ 



***************** 
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•02 * 
• A3* 



****A3********i 



•••••E2********** 



*•**••******••*** 



170 
*****F2* ********* 
•TRANSMITTER * 

*-*-•-•.*-*-*-*.* 
*POT OUT 3 BLANK* 

• LINES * 

* * 
***************** 



**** 
t * 

' H5 • 
t « 

*••• 



WHICH 
OPTION OR 
.F0RB4AT 7 . 



••••C 3** ***•••* 



*************** 



->*.ENDPAGE ON 7 



SPIOO 

•••**D3** ******** 
*SET UP SKIP OF * 
0,1,2 OR 3 " 



->* INCREASE LINE *<- 



*****DS* ********* 

* * 

* SET SKIP TO * 
-♦VALUE THAT WILL* 

* RAISE ENDPAGE * 

* • 
***************** 



SP200 .*. 

El» *. 
.♦ *. 

. * *. ^ 

>*. ENDPAGE ON 7 .*- 

♦. . * 

♦. .* 
*. . * 
*YES 



SP120 

*****F3** *••*••** 

♦ MOVE CONTROL * 

• CHARACTER TO * 

* BYTE t REDUCE * 

* SKIP COUNT * 



***«*F5* ********* 
*IBHBERRB * 
*-*-*-*-*-*-*-*-* 

* • 

* RAISE ENDPAGE * 

* * 
***************** 



m .* STANDARD *. 

* .ACTION NEEDED.* 

*. 7 .* 
*. .♦ 



* J3 ***** 

* • * 
***** H5 



*-> 

**** 

spoeo 

* SET CONTROL • 

* BYTE TO •!', * 
* CLEAR PAGE * 

* FLAG, ( SET * 

* LINE NO. TO 1 * 



*•** 

♦ 02 • 

* J3 



SPl<tO 

****J3********* 

• RETURN TO • 

, >• CALLER » 

r * « 
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•P-ARITH-FORMAT * 
• OUTPUT < 



.*, 
B2 *. 

.* *. 
.* SOURCE PIC *. NO 
AS TARGET .* 



SP030 



SELECT 
CONVERSION 



•••*«C24 



•MOVE SOURCE TO 
• TARGET 



••••••••**«**•** 



SP060 « 
♦CONVERSION 



ASSIGN TO 
TARGET FIELD 



****02 ********* 
» RETURN TO « 
• CALLER * 
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IB.'IDSTFA/E 

* • 

•P FORMAT PRINT •- 



A2 •. 
. • *. 
.•ERROR MLSS 



* ERROPT EXIT < 
» FROM LIOCS < 



STOIO 

•STIOO * 



y . •ANYTHING IN*. 
— *. BUFFER 



***C2*********** 



D2 •• 
*••• .* « 

• • N .* 

• U2 ♦< •. TRANSMIT 

• * *. 

•••• *. .4 

• • .» 
♦ X 



.♦ IMPtlCIT 
, CLOSE OR 
* . ERROR 
*.MESS .« 



.•FIRST LINE •. 
. OF KKSSAGE . 
♦. •• 



• *•* 
► £3 < 



• ••• 
» « 
► E3 « 



••****•••**••*•• 



•RAISE TRANSNIT • 



ST030 " 



• •*• 

• • 

• H2 •-> 



***• 
STO«0 

•****H2*** •****•• 



.* PAGESIZE 
EXCEEChD 



ST060 

•••*H3^^*^^***^ 

• « 

• RETURN * 



N 

J3' '♦. 
.• •. 

.• 
->*. ERROR MESS 



••••ES* **•••*** 



•••*C5^**^**^^^ 
• * 

•RETURN TO LIOCS* 



••***K2*^*^*^*^^^ 
•IBMBERRB • 



• RAISE ENDPA6E • 
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IBMDSTI 

* 4 

• STREAM INPUT * 



**** •A3* *•«**••*• 
♦lEMDSCPA • 

->* COPY CURRENT ♦ 

♦ BUFFER ♦ 

* • 



***B2* ********** 

* * 

GET NEW RECORD 

• * 

**************** 



. *. 

C2 *. 
. * ♦. 
.* I/O ERROR *. N 
*. FLAG SET IN .*-- 
• . CCB . * 



*****C3********** 

* * 

* TURN OFF ♦ 
->* TRANSMIT FLAG * 

* IN FCB * 

* * 
***************** 



****A<I********* 
> EOF EXIT FROM * 
* LIOCS < 

» i 

*•*****••**••** 



****£||********* 



****AS* ******** 
» ERROFT EXIT < 
» FROM LIOCS • 



»E^** 



******* 



• ***CI|********* 
► PETUPN TO « 
» CALLER OF STI ' 

» 4 

*************** 



•***cs* ******** 

• * 
♦RETURN TO LIOCS* 

* * 
*«•**•*•****••* 



ST03U .*. 
E2 < 



*****03********* 



*****E3********** 



V FORMAT 

' *. .* 
*. .* 
* N 



•••*G2********* 

» 4 

» RETURN < 
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»X-FORMJ>.T INPUT 



>**«**«***« 



♦X-rORMAT OUTPUT* 
*************** 



IBfBSXCC 

* COLUMN FCPyAT ' 

* INPUT 

* 1 
*************** 



I3NE.SXCC 

****fiH****** *** 

* COLUMN FORMAT' . 

* OUTPUT " 

* 1 
*************** 



*****Cf2********** 



***************** 



*****Q-i********** 

* * 

♦IF X WIDTH < » 
>» THEN SET X *- 

* WIDTH =0 * 

* * 
***************** 



***** 
♦02 ♦ 
♦ A2^ 



D2 *. SX200 

.» ». ♦♦♦»D3**»»*«*** 

.♦GET OR PUT ♦. YES * « 

■• STRING ? .♦ >♦ RAISE ERROR * 

♦. . ♦ * ' 

*. .* *************** 



***** £2 ♦♦♦♦♦♦♦♦♦♦ 



***************** 



SX020 

*****F2 ♦♦♦**♦♦♦** 

♦ * 

♦ IF COL > ♦ 

♦ LINESIZE THEN »<- 

♦ SET COL =1 ♦ 

♦ * 
***************** 



F3 ♦ 

. * 

COLUMN 



***** 
*02 ♦ 
♦ A2* 



, ♦ ON RIGHT 
COL ? 



***** 
»02 » 
* F2* 



COL > 


♦. YES 


CURRENT 


:---i 


*. 


♦ . . ♦ 


***** 


♦NO 


♦02 ♦ 






C2* 






♦ 






* 



♦ . OUTPUT ? .♦ 
*. . * 


♦ . . ♦ 


♦ . . ♦ 


**** 


►NO 


♦ 01 ♦ 

♦ K2 ♦-> 

♦ * 




**** 




SX050 i 
*»***K2^ 


7 
>******** 



.♦ GET ♦. 
, ♦ STRING OR ♦. NO 

.MID X- FORMAT .♦ 

♦. WIDTH ? .♦ 



SX060 

*****K3********** 

♦TRANSMITTER ♦ 

ADVANCE ♦ V *_*-*_*_*_*_*_*_* 

♦POINTERS TO END^ >♦ LOCATE NEXT ♦ 

♦ OF BUFFER ♦ A ♦ BUFFER ♦ 

1 * * 

*4* *********** ******** 

♦ 01 ♦ 

♦ K3^ 
* * 



****KI| ♦♦♦♦♦♦♦♦♦ 
k ' 

> RAISE ERROR * 

> I 
*************** 



SX170 

*****J5********** 

♦IBMBERRH ♦ 

»_*_*_*-*_*-*-*-» 

.__>* * 

♦ RAISE RIDFILE ♦ 

♦ ♦ 
***************** 



****)<■>♦♦♦♦♦♦♦♦♦ 
♦RETURN TO NEXT ♦ 

♦ STATEMENT ♦ 

♦ * 
*************** 



)*************** 
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***** 

♦ 02 ♦ 

♦ A2+ 
* * 



, ♦ ANY 3YTES ♦. NO 

. TO SKIP ? . ♦ 

♦. . ♦ 



♦ F2 ♦ 

* * 
**** 



*****33********** 



.♦ ENOUGH ♦. NO 


♦ REDUCE SKIP ♦ 


♦. BYTES IN .♦ 


>* VALUE BY THIS ♦ 


♦ . BUFFER ? . ♦ 


♦ NUMBER ♦ 


♦. .♦ 


♦ » 


♦ . . ♦ 


***************** 


♦YES 






♦ ♦♦• 








♦02 ♦ 








♦ C2 ♦-> 








♦ • 








♦ **♦ V 


^i 


SX080 .♦. 


.♦ . 


C2 ♦. 


a ♦. 


. ♦ ♦. 


.♦ ♦. 


.♦ ♦.NO 


. ♦ ♦ . NO 


♦. OUTPUT ? .♦ 1 


♦. OUTPUT ? .♦ , 


♦. . ♦ 


♦. .♦ 


• . .♦ 


*. .* ***** 


♦YES 


♦YES »01 ♦ 








♦ K2^ 








• • 
* 






', 


7 


.♦ . 


t^^tt'Q'Z********** 


D3 ♦. 


♦SXllO ♦ 


.♦ ♦. 


♦-♦-♦-*-*-*-*-•-* 


. ♦ END OF ♦ . YES 


♦ ♦ 


♦ . RECORD ? . ♦ 1 

♦ . .♦ J 
♦. .♦ V 


♦BLANK OUT FIELDS 


♦ * 


***************** 


». .* ♦♦**♦ 






♦NO ^01 ♦ 








♦ K3^ 




<—». — _.—*.. 




^ 4i 






* 


SX090 


' 


, 


' 


**t^^^2******»*** 


•* *••£}** *••****• 


* ♦ 


♦SXllO ♦ 


♦ADVANCE BUFFER ♦ 


♦-•-*_*-.•_•-*_•-• 


♦ POINTERS ♦ 


♦ BLANK OUT ♦ 


♦ ♦ 


♦ REMAINDER OF ♦ 


♦ • 


♦ RECORD ♦ 


•****•*******•*«« 


•*•♦**♦♦**•••***• 


• ••• 




♦ •♦* 


♦02 ♦ 




l_>^01 ♦ 


♦ F2 ♦-> 




♦ K2 ♦ 


♦ ♦ 




* ♦ 


♦ ♦*• 9 


♦ ♦•* 


SXIOO 


► . 







i: 



GET/POT ♦• NO 

->♦. STRING CALL .♦ 

. REQD ? .♦ 



»♦*• 

\- < 

► F2 * 

* 4 

♦ ♦*♦ 



♦♦♦•♦G2 ♦♦♦♦♦♦♦*♦♦ 
♦IBMBSIST ♦ 

♦-♦-♦-*-♦-♦-•.*-* 

♦ STRING ♦ 

♦ HOUSEKEEPING ♦ 

♦ * 

♦ ♦♦•♦******«i***** 



SX105 H 

♦ RETURN TO < 

♦ CALLER « 

♦ « 
*♦♦♦♦♦••***••** 
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» * 

» IBMBTOCA * 
¥ * 

*************** 



****f^tt********* 

* « 
► IBMBTCCB * 

* « 
*************** 



.* IS EVENT ». 
. VAR. ACTIVE , 
*. .♦ 



*****Q2********''* 



*********m******* 



NO .♦IS VALUE OF*. 

*. ASSIGNMENT . 

». 'I'a .♦ 



*****D2* ********* 

* * 

* » 
•SET EV COMPLETE* 

* * 

* * 
***************** 



£3 *. 
**** .* *. 

♦ * NO .♦ ANY ECB *. 

♦ H3 ♦< ♦.CHAIN PRESENT.* 

♦ ♦ A ♦. .♦ 
**** 



XES 



*****p 3* ******•*• 



***•**•**•*••*•** 



, ♦ 

. ,• 
♦ NO 



♦ H3 ♦-> 

* * 

H3 



TOCA .♦ ♦. 

J. ♦.ENTRY POINT ?.♦ 



*****j3********** 



***************** 



♦♦♦♦K3***^***^^ 

♦ RETURN TO * 

♦ COMPILED CODE ♦ 

♦ * 
*************** 



*****BH* ********* 



***************** 



**»**CU*****^^^** 

* * 
♦-*-*-♦-♦-*-♦-»-♦ 

* • 

* 3AISE eRRCB ♦ 

* * 
***************** 
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c 



INITIALIZATION 



SAVE 
REGISTERS 



SET UP CSA 
PLIST POINTERS 



FIND DFHSAP FROM CSA 



c 



1 



DFHPLIC 
A2 



D C 



MOVE CSA ADDRESS 
TO PARAMETER 



c 



) 



DFHPL1I 
A3 



3 c 



c 



GOTO DFHPCP 



3 



IBMBOCLA.B.C, 



D C 



A4 

SAVE REGISTERS 



3 



FIND DFHSAP VIA CSA 



c 



GOTO IBMFPCCA 
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Index 



abnormal GOTO 18,21 

( see also reset CHECK enablement) 
ABS built-in function 

fixed binary complex 17 U 

fixed decimal complex 175 

long float complex 176 

short float complex 176 
ACOS built-in function 

long float real 167 

short float real 169 
action byte 34 
ADD (fixed decimal) 170 
aggregate handling routines 107 
ALL built-in function 108 
allocate 

controlled variable 15 

in an area 16.1 

LIFO storage 18 

non-LIFO storage 18 
AND operation 122 
ANY built-in function 108 
A format 

input conversion director 66 

output conversion director 67 
area management 16.1 
arithmetic operations 133 
arithmetic routines 107 
arithmetic to arithmetic, internal 

conversion 79 
arithmetic to character conversion 

director 89 
arithmetic to character, internal 

conversion 79 
array events ( see WAIT) 
array indexing 109 
array operations 

ALL 108 

ANY 108 

POLY 120 

PROD 115,116 

SUM 118,119 
ASIN built-in function 

long float real 167 

short float real 169 
assign 

byte-aligned bit strings 128 

general bit strings 129 
assignment 

bit strings 128,129 

character strings 92 

of event variables 26 

with shift 177 
ATAN built-in function 

long float complex 165 

long float real 161 

short float complex 164 

short float real 163 
ATAND built-in function 

long float real 161 

short float real 163 
ATANH built-in function 

long float complex 165 



ATANH built-in function (Continued) 
long float real 166 
short float complex 164 
short float real 166 

bit string operations ( see string 

operations) 
BIT TAB (see bit table) 
bit table in BUGTAB 216 
BOOL built-in function 126 
bootstrap 

conversion director 94 

conversion fix- up 70 
BUGTAB 

bit table (BIT-TAB) 216 

recovery of information 215 

storage 214 

C-format conversion director 

input 69 

output 70 
chain of EVTABs 26 
character- P and B formats 

input conversion director 66 

output conversion director 68 
character string operations ( see string 

operations) 
character to arithmetic conversion 

director 91 
character to arithmetic, internal 

conversion 79 
check 

input, pictured character 97 

input, pictured decimal 96 

unqualified 35 
CHECK, system action 32 
checkpoint module 203 

CICS initialization bootstrap, DFHPLII 15 
close 3 8 

COBOL, communication with PL/I 186 
COLUMN format item 75 
communication, interlanguage 186 
compare 

general bit strings 127 
COMPLETION pseudovariable 26 
computational routines 107 
concatenation 

bit strings 129 

character strings 124 
control names 10 
control- section names 11 
controlled variable 16 
conversion 

arithmetic to arithmetic 79 

arithmetic to character 79,89 

binary constant to float 104 

bit to bit 89 

bit to character 90 

bit to fixed binary or float 102 

bit to pictured character 90 

character to arithmetic 79,91 

character to bit 92 
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conversion (Continued) 

character to pictured character 95 

decimal constant to packed decimal 103 

external 80 

fix- up bootstrap 70 

fixed binary-float- free decimal 98 

fixed binary or float to bit 103 

fixed binary to fixed binary and float 
to float 107 

fixed decimal - free decimal - fixed 
decimal 99 

fixed decimal-free decimal-float-fixed 
binary 95 

internal 79 

packed decimal to E- format 105 

packed decimal to F-format 106 

packed decimal to pictured decimal 101 

path 7 8 

pictured decimal to packed decimal 100 

string to string 79 
conversion director bootstrap 94 
conversion director modules 

arithmetic to character 89 

character to arithmetic 91 

input (A, P and B-formats) 66 

input (C-format) 69 

input (F and E- formats) 71 

input (P-format) 72 

output (A format) 67 

output (C-format) 70 

output (P and B-formats) 68 

output (F and E-formats) 71 

output (P-format) 73 
conversion routines 78 
COPY option module 73 
COS built-in function 

long float complex 151 

long float real 148 

short float complex 150 

short float real 149 
COSD built-in function 

long float real 148 

short float real 149 
COSH built-in function 

long float complex 151 

long float real 157 

short float complex 150 

short float real 158 

data- directed input 53 

resricted conversions 54 
data- directed output 56 
DATE built-in function 197 
debugging macro instructions 14 

reactivation 214 
DELAY statement 197 

DFHPLII, CICS initialization bootstrap 15 
director modules 

conversion ( see conversion director 
modules) 

input/output 43 
DISPLAY statement 194 
DIVIDE built-in function 

fixed binary complex 172 

fixed decimal complex 173 
division 

fixed binary complex 17 8 

fixed decimal complex 179 



division (Continued) 

long float complex 180 

short float complex 180 
dump bootstrap 204 

edit-directed I/O, housekeeping 57 

edit- directed input 60 

edit-directed output 61 

ENDPAGE on print files 74 

entry-point names 11 

ERF built-in function 
long float real 140 
short float real 142 

ERFC built-in function 
long float real 140 
short float real 142 

error codes, in ONCA 31 

error codes 30 

error-handling modules, control names 15 

error-handling routines 27 

error handler 33 

EVENT option, on DISPLAY statements 195 

event variable assignment 26 

EVTAB chain 26 

EXP built-in function 

long float complex 139 
long float real 137 
short float complex 139 
short float real 138 

explicit close 38 

explicit open 38 

exponentiation 

general, long float complex 184 
general, long float real 183 
general, short float complex 184 
general, short float real 183 
integer, float complex 182 
integer, long float real 181 
integer, short float real 181 

external conversion 80,78 



F and E-format conversion directors 

FLOW option 27 

FORTRAN, communication with PL/I 188 
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general exponentiation ( see 

exponentiation ) 
get and put string initialization 
get file initialization 48 
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HIGH 92 

housekeeping routines 15 
housekeeping, edit-directed I/O 5 7 
housekeeping, interlanguage 

PL/I called from another language 191 

PL/I calls COBOL 186 

PL/I calls FORTRAN 188 



IBMBAAH 108 

AIH 109 

AMM 111 

ANM 113 

APC 115 

APF 116 

APM 117 

ASC 118 

ASF 119 
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AYF 


120 


BBA 


122 


BBN 


123 


BCI 


124 


BCK 


12U 


IBMBBCT 


125 


BCV 


126 


BGB 


126 


BGC 


127 


BGF 


128 


BGI 


129 


BGK 


129 


BGS 


131 


BGV 


132 


CAC 


89 


CBB 


89 


CBC 


90 


CBQ 


90 


CCA 


91 


CCB 


92 


CCC 


92 


CCQ 


95 


CE 


95 


CGP 


96 


CGQ 


97 


CGT 


97 


CGZ 


97 


CH 


98 


CK 


99 


CM 


100 


CO 


101 


CP 


102 


CR 


103 


CT 


103 


cu 


104 


cv 


105 


cw 


106 


CY 


106 


EOC 


30 


EOL 


31 


ERC 


32 


JWI 


198 


MAL 


134 


MAS 


135 


MAX 


136 


MAY 


136 


MBL 


137 


MBS 


138 


MBX 


139 


MBY 


139 


MCL 


140 


MCS 


142 


MDL 


143 


MDS 


145 


MDX 


146 


MDY 


147 


MGL 


148 


MGS 


149 


MGX 


150 


MGY 


151 


MHL 


153 


MHS 


154 


MHX 


155 


MHY 


156 


MIL 


157 


MIS 


158 


NJL 


159 


MJS 


160 



MKL 


161 


MKS 


163 


MKX 


164 


MKY 


165 


MLL 


166 


MLS 


166 


MML 


167 


MMS 


169 


MOD 


170 


MPU 


171 


MPV 


171 


MQU 


172 


MQV 


173 


MRU 


174 


MRV 


175 


MRX 


166 


MRY 


166 


MUD 


167 


MVU 


168 


MW 


169 


MVW 


180 


MWX 


180 


MWY 


180 


MXL 


181 


MXS 


181 


MXW 


182 


MYL 


183 


MYS 


183 


MYX 


184 


MYY 


184 


PAF 


16 


PAM 


16.1 


PGO 


18 


PRO 


25 


SAI 


66 


SAO 


67 


SBO 


68 


SCI 


69 


SCO 


70 


SFI 


71 


SFO 


71 


SMW 


65 


SPI 


72 


SPO 


73 


TOC 


26 


XCH 


212 


XDBG 


212,214 


XDBL 


212,214 


XDBM 


212,214 


XDC 


212 


XDD 


212 


XDM 


212 


XDP 


212 


XEC 


212 


XER 


212 


XET 


212 


XEV 


212 


XFLT 


212 


XFV 


212 


XGC 


212 


XGV 


212 


XIC 


212 


XIN 


212 


XI OS 


212 


XKY 


213 


XLB 


213 


WSL 


213 


XRiH 


213 
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XRRT 


213 


XRT 


213 


XRWS 


213 


XSIO 


213 


XSY 


213 


IBMBXTAB 


213 


XVKD 


213 


XVRD 


213 


XWT 


213 


IBMDCCS 


94 


EFL 


27 


ERR 


33 


lEC 


186 


lEF 


188 


lEP 


191 


JDS 


194 


JDT 


197 


JDY 


197 


JDZ 


196 


JTT 


198 


JWT 


199 


KCP 


203 


KDM 


204 


KST 


204 


OCL 


38 


PGR 


18 


PIR 


21 


PJR 


23 


POL 


24 


POV 


25 


RIO 


41 


SCP 


73 


SCV 


70 


SDI 


53 


SDJ 


54 


SDO 


56 


SED 


57 


SEE 


58 


SEH 


59 


SEI 


60 


SEO 


61 


SII 


48 


SIL 


49 


SIO 


50 


SIS 


52 


SLI 


61 


SLJ 


63 


SLO 


64 


SPL 


74 


STF 


75 


STI 


76 


SXC 


75 


XCOM 


213 


XDGT 


213,214 


XDTF 


213 


XFCB 


213 


XNVB 


213 



XTA 213 
IBMGJWT 201 
implicit close 38 
implicit open 38 
INDEX built-in function 124 
indexing, array 109 
initial storage area (ISA) 21,23 
initialization 

get and put string 52 

get file 48 

of program, from caller 23 



initialization (Continued) 

of program, from system 21 

put file 50 

stream I/O 43 
input 

check, pictured character 97 

check, pictured decimal 96 

data-directed 53,54 

edit-directed 60 

list-directed 61,63 
input conversion director modules ( see 

conversion director modules) 
insufficient storage 22 

integer exponentiation ( see exponentiation) 
interface 

checkpoint/restart 203 

record I/O 41 

SORT 204 
interlanguage communication 21 
interlanguage communication routines 186 
interlanguage control block (ZCTL) 186 
interlanguage housekeeping 

PL/I called from another language 191 

PL/I calls COBOL 186 

PL/I calls FORTRAN 188 
interleaved arrays, indexing 109 
internal conversion 79,78 
interrupts 33 
ISA (see initial storage area) 

library, resident 10 

library, transient 10 

library macro instructions 14 

LIFO stack overflow recovery 19 

LIFO storage management 18 

LINE 60 

list- directed input 61 

restricted conversions 63 
list-directed output 64 
listings, program 13 
LOG built-in function 

long float complex 147 

long float real 143 

short float complex 146 

short float real 145 
LOGIO built-in function 

long float real 143 

short float real 145 
L0G2 built-in function 

long float real 143 

short float real 145 
LOW 92 



macro instructions ( see library macro 

instructions) 
mapping, structure 111 
mathematical functions 134 
mathemet*Lcal routines ( see arithmetic 

and mathematical routines) 
messages 

insufficient storage 22 

no main procedure 22 

no storage available 22 

SNAP 27 
miscellaneous routines 194 
module naming conventions 10 
multiple events (see WAIT) 



356 Licensed Material - Property of IBM 



Page of LY33-6011-1, Revised October 1976 by TNL LN33-6179 



multiplication 

fixed binary complex 178 

fixed decimal complex 179 

float complex 180 
MULTIPLY built-in function 171 

names 

control 10 

control-section 11 

entry-point 11 

module 10 

register 13 
no main procedure 22 
no storage available 22 
non-LIFO storage management 18 
non-on-type errors 30 
NOT operation 123 

ON conditions 34 

on- code module 30 

on-type errors 30 

ONCA (see error code in ONCA) 

ONLOC built-in function 31 

ONSOURCE string 70 

open 3 8 

OR operation 122 

output 

data- directed 56 

edit-directed 61 

list-directed 64 
output conversion director modules ( see 

conversion director modules) 
overlay 25 

space saving module 24 

P- format 

input conversion director 72 

output conversion director 73 
PAGE 74 
PLINIAIN 22 
PLIOVLY 25 

POLY built-in function 120 
powers of ten, table 97 
prerequisite publications 3 
PROD built-in function 115,116 
program check interrupts 3 3 
program initialization 

from caller 23 

from system 21 
program listings 13 
program management 15 
program publications 4 
purpose of publication 3 
put file initialization 50 

reactivation of debugging macro 

instructions 214 
record I/O interface 41 
record I/O routines 41 

recovery of information from BUGTAB 215 
register naming conventions 13 
register usage 13 
REPEAT built-in function 

bit strings 129 

character strings 124 
REPLY option on DISPLAY statements 195 
reset CHECK enablement 18 
resident library 10 



restart module 203 

restricted conversions 

data-directed input 54 
list-directed input 63 

RPGII, communication with PL/I 



191 



shift-and-assign 177 
shift-and-load 177 
SIN built-in function 

long float complex 151 

long float real 14 8 

short float complex 150 

short float real 149 
SIND built-in function 

long float real 148 

short float real 149 
single events ( see WAIT) 
SINK built-in function 

long float complex 151 

long float real 157 

short float complex 150 

short float real 158 
size of library modules 209 
SKIP 74 
SLD ( see SUBSTR) 
SNAP message 27 
space saving module 24 
SORT interface 204 
SQRT built-in function 

float complex 136 

long float real 134 

short float real 135 
storage for BUGTAB 214 
storage management 18 
stream I/O initialization 43 
stream I/O modules 43 
STRING built-in function 113 
string conversion director bootstrap 94 
string handling modules 121 
string handling routines 121,107 
string operations 

AND 122 

assignment 128,129 

BOOL 126 

comparison 122,127 

concatenation 124,129 

fill 128 

INDEX 124 

NOT 123 

OR 122 

REPEAT 124,129 

TRANSLATE 125 

VERIFY 126,131 
STRING pseudovariable 117 
string to string, internal conversion 79 
structure mapping 111 
SUBSTR built-in function 131 
SUBSTR pseudovariable 131 
SUM built-in function 118,119 
symbolic register names 13 
SYMTAB 32 

system action, for CHECK 32 
system publications ( see program 
publications ) 

TAN built-in function 

long float complex 156^ 
long float real 153 
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TAN built-in function (Continued) 

Short float complex 155 

short float real 154 
TAND built-in function 

long float real 153 

short float real 154 
TANK built-in function 

long float complex 156 

long float real 159 

short float complex 155 

short float real 160 
TIME, built-in function 197 
transient library 10 
TRANSLATE, built-in function 125 

VERIFY, built-in function 
bit strings 131 
character strings 126 

WAIT 

array events 198 
multiple events 199 
single events 201 

X format item 75 

ZCTL (interlanguage control block) 186 
set a subfield of a complex number to 
zero 97 
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